<div dir="ltr"><div class="gmail_extra"><br><div class="gmail_quote">On Wed, May 22, 2013 at 3:47 PM, Matthew Flatt <span dir="ltr">&lt;<a href="mailto:mflatt@cs.utah.edu" target="_blank">mflatt@cs.utah.edu</a>&gt;</span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">(define (frac a b)<br>
</div>  (lift-above-baseline<br>
<div class="im">   (vc-append<br>
    a<br>
    (hline (max (pict-width a) (pict-width b)) 20)<br>
    b)<br>
</div>   (- (pict-descent b) (pict-height b))))<br>
<br>
(slide (hbl-append (t &quot;x=&quot;) (frac (t &quot;1234&quot;) (t &quot;5678&quot;))))</blockquote></div><br><br></div><div class="gmail_extra">Indeed it works! I had tried with negative values but I probably had done it wrong then.<br>

</div><div class="gmail_extra">Thank you!<br><br>Laurent<br></div></div>