X-Git-Url: http://git.hcoop.net/jackhill/mal.git/blobdiff_plain/2a42d8274072c44dd2d83762cc27cd810f5b8452..a631063f3fa2eaed473369b376a5499df92209bd:/forth/stepA_interop.fs

diff --git a/forth/stepA_interop.fs b/forth/stepA_interop.fs
index 0a4050a4..af5f5d83 100644
--- a/forth/stepA_interop.fs
+++ b/forth/stepA_interop.fs
@@ -261,12 +261,21 @@ defspecial try* { env list -- val }
         catch-env  catch0 cell+ @  TCO-eval
     endif ;;
 
+defspecial . { env coll -- rtn-list }
+    depth { old-depth }
+    coll to-list dup MalList/count @ swap MalList/start @ { count start }
+    count cells start +  start cell+  +do
+        env i @ eval as-native
+    cell +loop ;;
+
 MalSymbol
   extend mal-eval { env sym -- val }
-    0 sym env get
+    sym env env/get-addr
     dup 0= if
         drop
-        0 0 s" ' not found" sym as-native s" '" ...throw-str
+        0 0 s" ' not found" sym pr-str s" '" ...throw-str
+    else
+        @
     endif ;;
 drop