Add test for atoms "leaking" out of let* binds

(hopefully) closes #490

diff --git a/tests/step6_file.mal b/tests/step6_file.mal
index 939396c..5eecc33 100644 (file)
--- a/tests/step6_file.mal
+++ b/tests/step6_file.mal
@@ -93,6 +93,12 @@
 (f)
 ;=>9
 
+;; Testing whether closures can retain atoms
+(def! g (let* (atm (atom 0)) (fn* () (deref atm))))
+(def! atm (atom 1))
+(g)
+;=>0
+
 ;>>> deferrable=True
 ;;
 ;; -------- Deferrable Functionality --------