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

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

@ -234,33 +234,37 @@
(rule-pict-rhs rp) (rule-pict-rhs rp)
(rp->side-condition-pict rp +inf.0)))] (rp->side-condition-pict rp +inf.0)))]
[multi-line-spacer [multi-line-spacer
(ghost (if (null? rps)
(launder (blank)
(ctl-superimpose (ghost
(apply ctl-superimpose (map mk-top-line-spacer rps)) (launder
(apply ctl-superimpose (map mk-bot-line-spacer rps)))))] (ctl-superimpose
(apply ctl-superimpose (map mk-top-line-spacer rps))
(apply ctl-superimpose (map mk-bot-line-spacer rps))))))]
[spacer (dc void [spacer (dc void
(pict-width multi-line-spacer) (pict-width multi-line-spacer)
(pict-descent multi-line-spacer) ;; probably could be zero ... (pict-descent multi-line-spacer) ;; probably could be zero ...
0 0
(pict-descent multi-line-spacer))]) (pict-descent multi-line-spacer))])
(apply (if (null? rps)
vl-append (blank)
(add-between (apply
(blank 0 (reduction-relation-rule-separation)) vl-append
(map (λ (rp) (add-between
(side-condition-combiner (blank 0 (reduction-relation-rule-separation))
(vl-append (map (λ (rp)
(ltl-superimpose (side-condition-combiner
(htl-append (rule-pict-lhs rp) (vl-append
(basic-text " " (default-style)) (ltl-superimpose
(arrow->pict (rule-pict-arrow rp))) (htl-append (rule-pict-lhs rp)
(rtl-superimpose (basic-text " " (default-style))
spacer (arrow->pict (rule-pict-arrow rp)))
(rp->pict-label rp))) (rtl-superimpose
(rule-pict-rhs rp)) spacer
(rp->side-condition-pict rp +inf.0))) (rp->pict-label rp)))
rps))))) (rule-pict-rhs rp))
(rp->side-condition-pict rp +inf.0)))
rps))))))
(define compact-vertical-min-width (make-parameter 0)) (define compact-vertical-min-width (make-parameter 0))