From a631063f3fa2eaed473369b376a5499df92209bd Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Sun, 22 Feb 2015 13:20:31 -0500
Subject: forth: Add map-hint to symbols for better perf

---
 forth/step8_macros.fs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'forth/step8_macros.fs')

diff --git a/forth/step8_macros.fs b/forth/step8_macros.fs
index f01f3a9..7260567 100644
--- a/forth/step8_macros.fs
+++ b/forth/step8_macros.fs
@@ -232,13 +232,13 @@ defspecial macroexpand ( env list[_,form] -- form )
 
 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
 
-- 
cgit v1.2.3