stack-checker.errors.prettyprint: fix prettyprinting of unbalanced-branches-error

db4
Slava Pestov 2010-01-15 07:51:36 +13:00
parent 70fb7ba164
commit e4c53f67b0
1 changed files with 1 additions and 1 deletions

View File

@ -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