diff --git a/tests/step6_file.mal b/tests/step6_file.mal index 939396c7..5eecc330 100644 --- 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 --------