diff options
Diffstat (limited to 'forth/step7_quote.fs')
| -rw-r--r-- | forth/step7_quote.fs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/forth/step7_quote.fs b/forth/step7_quote.fs index 0c6b909..1e4043d 100644 --- a/forth/step7_quote.fs +++ b/forth/step7_quote.fs @@ -204,13 +204,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 |
