M: unbalanced-branches-error summary
[ word>> name>> ] [ quots>> length 1 = ] bi
[ "The input quotation to “" "” doesn't match its expected effect" ]
- [ "The input quotations to “" "” don't match their expected effects" ] if
+ [ "The input quotations to “" "” do not all leave the stack at the same height" ] if
surround ;
M: unbalanced-branches-error error.
- dup summary print
+ dup summary print nl
+ "For more information, evaluate:" print
+ " \"inference-branches\" help" print nl
[ quots>> ] [ declareds>> ] [ actuals>> ] tri 3array flip
{ "Input" "Expected" "Got" } prefix simple-table. ;