Better error message
parent
d44d5aba34
commit
14b78f348e
|
@ -230,6 +230,7 @@ SYMBOL: deserialized
|
||||||
: deserialize-word ( -- word )
|
: deserialize-word ( -- word )
|
||||||
(deserialize) (deserialize) 2dup lookup
|
(deserialize) (deserialize) 2dup lookup
|
||||||
dup [ 2nip ] [
|
dup [ 2nip ] [
|
||||||
|
drop
|
||||||
"Unknown word: " -rot
|
"Unknown word: " -rot
|
||||||
2array unparse append throw
|
2array unparse append throw
|
||||||
] if ;
|
] if ;
|
||||||
|
|
Loading…
Reference in New Issue