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