Better error message

db4
Slava Pestov 2008-04-26 05:49:59 -05:00
parent d44d5aba34
commit 14b78f348e
1 changed files with 1 additions and 0 deletions

View File

@ -230,6 +230,7 @@ SYMBOL: deserialized
: deserialize-word ( -- word )
(deserialize) (deserialize) 2dup lookup
dup [ 2nip ] [
drop
"Unknown word: " -rot
2array unparse append throw
] if ;