refine error message

This commit is contained in:
Koichi Nakamura 2021-01-06 03:01:24 +09:00
parent 145faaf502
commit 68d9c70c7a

View file

@ -1294,7 +1294,9 @@ create word-buffer s" 64" >number drop cell+ allot drop
then then
error>next error>next
repeat repeat
." Unknown error code: " . cr ." Unknown error code: "
word-buffer type
." (" 0 .r ." )" cr
bye bye
then then
again again
@ -1664,7 +1666,9 @@ stdin_ push-inputstream
then then
error>next error>next
repeat repeat
." Unknown error code: " . cr ." Unknown error code: "
word-buffer type
." (" 0 .r ." )" cr
bye bye
then then
again again