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.
"Stack effects of the word " write
[ word>> pprint " do not match." print ]
[ "Inferred: " write inferred>> effect>string . ]
[ "Declared: " write declared>> effect>string . ] tri ;
[ "Inferred: " write inferred>> . ]
[ "Declared: " write declared>> . ] tri ;
TUPLE: recursive-quotation-error quot ;