From 4b294e47144da00ae4b9568fed39569d187ce07e Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Fri, 27 Mar 2026 17:23:26 -0400
Subject: Fix doubles

---
 test/gc.pit | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 test/gc.pit

(limited to 'test/gc.pit')

diff --git a/test/gc.pit b/test/gc.pit
new file mode 100644
index 0000000..28eed50
--- /dev/null
+++ b/test/gc.pit
@@ -0,0 +1,13 @@
+(diagnostics!)
+(setq! foo (cons 1 2))
+(setq! bar (cons foo 3))
+(setq! baz (cons bar foo))
+(diagnostics!)
+(print! foo)
+(setcar! foo baz)
+(print! (cdr (car (car foo))))
+(diagnostics!)
+(setq! foo nil)
+(setq! bar nil)
+(setq! baz nil)
+(diagnostics!)
-- 
cgit v1.2.3