aboutsummaryrefslogtreecommitdiff
path: root/forth/stepA_interop.fs
diff options
context:
space:
mode:
authorChouser <chouser@n01se.net>2015-02-22 13:20:31 -0500
committerChouser <chouser@n01se.net>2015-02-23 22:22:04 -0500
commita631063f3fa2eaed473369b376a5499df92209bd (patch)
treeee0e08f5226525cb4885512e07ae53c30f185990 /forth/stepA_interop.fs
parent3a17cb968281f7e833088fdb22cf793861810912 (diff)
downloadmal-a631063f3fa2eaed473369b376a5499df92209bd.tar.gz
mal-a631063f3fa2eaed473369b376a5499df92209bd.zip
forth: Add map-hint to symbols for better perf
Diffstat (limited to 'forth/stepA_interop.fs')
-rw-r--r--forth/stepA_interop.fs2
1 files changed, 1 insertions, 1 deletions
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 ;;