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/thebug2.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 test/thebug2.lisp

(limited to 'test/thebug2.lisp')

diff --git a/test/thebug2.lisp b/test/thebug2.lisp
new file mode 100644
index 0000000..2376ff8
--- /dev/null
+++ b/test/thebug2.lisp
@@ -0,0 +1,13 @@
+
+(setq! z 40)
+(setq! f
+  (lambda (x)
+    (lambda (y)
+      (lambda (w)
+        (+
+          (funcall (lambda (z) (+ x y z)) 3)
+          w
+          z)))))
+(let ((z 20))
+  (print! (funcall (funcall (funcall f 1) 2) 3)))
+
-- 
cgit v1.2.3