From e4c53f67b01825267dcd9b823f4594eb66ee15bb Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 15 Jan 2010 07:51:36 +1300
Subject: [PATCH] stack-checker.errors.prettyprint: fix prettyprinting of
unbalanced-branches-error
---
basis/stack-checker/errors/prettyprint/prettyprint.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/stack-checker/errors/prettyprint/prettyprint.factor b/basis/stack-checker/errors/prettyprint/prettyprint.factor
index e577f0fe69..433c11d34c 100644
--- a/basis/stack-checker/errors/prettyprint/prettyprint.factor
+++ b/basis/stack-checker/errors/prettyprint/prettyprint.factor
@@ -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