aboutsummaryrefslogtreecommitdiff
path: root/forth/step3_env.fs
diff options
context:
space:
mode:
Diffstat (limited to 'forth/step3_env.fs')
-rw-r--r--forth/step3_env.fs8
1 files changed, 4 insertions, 4 deletions
diff --git a/forth/step3_env.fs b/forth/step3_env.fs
index 676bfcc..a8a625e 100644
--- a/forth/step3_env.fs
+++ b/forth/step3_env.fs
@@ -91,13 +91,13 @@ defspecial let* { old-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