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

fix typesetting for empty reduction relations

Browse Source 
closes PR 13346
This commit is contained in:
Robby Findler 2013-05-01 16:47:28 -05:00
parent 79e10348b3
commit 7611e295f4
1 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/private/pict.rkt
View File

@ -234,16 +234,20 @@
(rule-pict-rhs rp)
(rp->side-condition-pict rp +inf.0)))]
[multi-line-spacer
(if (null? rps)
(blank)
(ghost
(launder
(ctl-superimpose
(apply ctl-superimpose (map mk-top-line-spacer rps))
(apply ctl-superimpose (map mk-bot-line-spacer rps)))))]
(apply ctl-superimpose (map mk-bot-line-spacer rps))))))]
[spacer (dc void
(pict-width multi-line-spacer)
(pict-descent multi-line-spacer) ;; probably could be zero ...
0
(pict-descent multi-line-spacer))])
(if (null? rps)
(blank)
(apply
vl-append
(add-between
@ -260,7 +264,7 @@
(rp->pict-label rp)))
(rule-pict-rhs rp))
(rp->side-condition-pict rp +inf.0)))
rps)))))
rps))))))
(define compact-vertical-min-width (make-parameter 0))