PS: fix function closures. Self-hosted up to step7.

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal
index f6b01f5..892b592 100644
--- a/tests/stepA_more.mal
+++ b/tests/stepA_more.mal
@@ -117,6 +117,9 @@
 (map? [])
 ;=>false
 
+(get nil "a")
+;=>nil
+
 (get hm1 "a")
 ;=>nil
 
@@ -174,6 +177,9 @@
 (meta (fn* (a) a))
 ;=>nil
 
+(meta +)
+;=>nil
+
 (with-meta [1 2 3] {"a" 1})
 ;=>[1 2 3]
 
@@ -276,6 +282,15 @@
 (swap! a + 3)
 ;=>123
 
+;; Testing swap!/closure interaction
+(def! inc-it (fn* (a) (+ 1 a)))
+(def! atm (atom 7))
+(def! f (fn* [] (swap! atm inc-it)))
+(f)
+;=>8
+(f)
+;=>9
+
 ;;
 ;; Testing read-str and eval
 (read-string "(1 2 (3 4) nil)")