From e0e8c8668861fb5ec52810b2583906d0b37dbb2b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 2 Jul 2009 02:23:29 +0000 Subject: [PATCH] fix up-down/compact-side-conditions svn: r15360 --- collects/redex/private/pict.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/redex/private/pict.ss b/collects/redex/private/pict.ss index 6f9c02b5f1..29b35ba5c0 100644 --- a/collects/redex/private/pict.ss +++ b/collects/redex/private/pict.ss @@ -759,7 +759,10 @@ max (map (lambda (lhs rhs linebreak?) (max - (if linebreak? + (if (or linebreak? + (memq style '(up-down + up-down/vertical-side-conditions + up-down/compact-side-conditions))) (max (pict-width lhs) (+ (pict-width rhs) (pict-width =-pict))) (+ (pict-width lhs) (pict-width rhs) (pict-width =-pict)