stack-checker.errors.prettyprint: fix prettyprinting of unbalanced-branches-error
parent
70fb7ba164
commit
e4c53f67b0
|
@ -15,7 +15,7 @@ M: unbalanced-branches-error summary
|
|||
|
||||
M: unbalanced-branches-error error.
|
||||
dup summary print
|
||||
[ quots>> ] [ branches>> [ length "x" <array> <effect> ] { } assoc>map ] bi zip
|
||||
[ quots>> ] [ branches>> [ length [ "x" <array> ] bi@ <effect> ] { } assoc>map ] bi zip
|
||||
[ [ first pprint-short bl ] [ second effect>string print ] bi ] each ;
|
||||
|
||||
M: too-many->r summary
|
||||
|
|
Loading…
Reference in New Issue