diff options
Diffstat (limited to 'forth/step9_try.fs')
| -rw-r--r-- | forth/step9_try.fs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/forth/step9_try.fs b/forth/step9_try.fs index e11c691..681e608 100644 --- a/forth/step9_try.fs +++ b/forth/step9_try.fs @@ -263,10 +263,12 @@ defspecial try* { env list -- val } MalSymbol extend mal-eval { env sym -- val } - 0 sym env get + 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 ;; drop |