From bcf6d83a8fd275ab592cf51435cef943e901da67 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 18 Jun 2010 15:36:03 -0700 Subject: [PATCH] stack-checker.errors.prettyprint: refer to unbalanced-branches quotation in singular when there's only one --- basis/stack-checker/errors/prettyprint/prettyprint.factor | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/basis/stack-checker/errors/prettyprint/prettyprint.factor b/basis/stack-checker/errors/prettyprint/prettyprint.factor index 3d4480a4aa..5af1010267 100644 --- a/basis/stack-checker/errors/prettyprint/prettyprint.factor +++ b/basis/stack-checker/errors/prettyprint/prettyprint.factor @@ -55,8 +55,10 @@ M: do-not-compile summary word>> name>> "Cannot compile call to “" "”" surround ; M: unbalanced-branches-error summary - word>> name>> - "The input quotations to “" "” don't match their expected effects" surround ; + [ 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 + surround ; M: unbalanced-branches-error error. dup summary print