Better error printing
parent
40e1b32220
commit
22f9478c5e
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue