suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix up-down/compact-side-conditions

Browse Source 
svn: r15360
This commit is contained in:
Matthew Flatt 2009-07-02 02:23:29 +00:00
parent f85ac6959a
commit e0e8c86688
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/redex/private/pict.ss
View File

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