diff options
| author | Chouser <chouser@n01se.net> | 2015-02-22 13:20:31 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-02-23 22:22:04 -0500 |
| commit | a631063f3fa2eaed473369b376a5499df92209bd (patch) | |
| tree | ee0e08f5226525cb4885512e07ae53c30f185990 /forth/step8_macros.fs | |
| parent | 3a17cb968281f7e833088fdb22cf793861810912 (diff) | |
| download | mal-a631063f3fa2eaed473369b376a5499df92209bd.tar.gz mal-a631063f3fa2eaed473369b376a5499df92209bd.zip | |
forth: Add map-hint to symbols for better perf
Diffstat (limited to 'forth/step8_macros.fs')
| -rw-r--r-- | forth/step8_macros.fs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |