Better error printing

db4
Slava Pestov 2008-09-22 02:27:07 -05:00
parent 40e1b32220
commit 22f9478c5e
1 changed files with 2 additions and 2 deletions

View File

@ -72,8 +72,8 @@ TUPLE: effect-error word inferred declared ;
M: effect-error error. M: effect-error error.
"Stack effects of the word " write "Stack effects of the word " write
[ word>> pprint " do not match." print ] [ word>> pprint " do not match." print ]
[ "Inferred: " write inferred>> effect>string . ] [ "Inferred: " write inferred>> . ]
[ "Declared: " write declared>> effect>string . ] tri ; [ "Declared: " write declared>> . ] tri ;
TUPLE: recursive-quotation-error quot ; TUPLE: recursive-quotation-error quot ;