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/stepA_interop.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'forth/stepA_interop.fs')

diff --git a/forth/stepA_interop.fs b/forth/stepA_interop.fs
index 4d48ae7..af5f5d8 100644
--- a/forth/stepA_interop.fs
+++ b/forth/stepA_interop.fs
@@ -273,7 +273,7 @@ MalSymbol
     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 ;;
-- 
cgit v1.2.3