forth: Add map-hint to symbols for better perf

[jackhill/mal.git] / forth / step4_if_fn_do.fs

diff --git a/forth/step4_if_fn_do.fs b/forth/step4_if_fn_do.fs
index 4fd277e..a3d64ac 100644 (file)
--- a/forth/step4_if_fn_do.fs
+++ b/forth/step4_if_fn_do.fs
@@ -151,13 +151,13 @@ defspecial fn* { env list -- val }
 
 MalSymbol
   extend mal-eval { env sym -- val }
-    0 sym env get
+    sym env env/get-addr
     dup 0= if
         drop
-        ." Symbol '"
-        sym as-native safe-type
-        ." ' not found." cr
+        ." Symbol '" sym pr-str safe-type ." ' not found." cr
         1 throw
+    else
+        @
     endif ;;
 drop