Added set-meta! to interp and compile

2020-05-10 00:17:30 -04:00
parent 9ce70badab
commit 4cd7b22c86
2 changed files with 58 additions and 5 deletions
--- a/bf.kp
+++ b/bf.kp
@@ -76,8 +76,20 @@
                           c (with-meta b "yolo") )
                           (do
                            (try*
-                                ((fn* () (do (println b) (println c) (println (meta c)) (println "world") a)))
+                                ((fn* () (do
+                                            (println b)
+                                            (set-nth! b 0 2)
+                                            (println b)
+                                            (println c)
+                                            (println (meta c))
+                                            (println "world")
+                                            a)))
                                )))))
+(do
+    (println "interp-main")
+    (main)
+    (println "done interp-main")
+    nil)