aboutsummaryrefslogtreecommitdiff
path: root/forth/step7_quote.fs
diff options
context:
space:
mode:
Diffstat (limited to 'forth/step7_quote.fs')
-rw-r--r--forth/step7_quote.fs8
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