From 1f7cb9b151fa9f5c12750276e9e2faaf0ec2cda4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 Mar 2011 08:31:10 -0600 Subject: [PATCH] Scribble: fix Latex-renderer bug introduced by 67b7c8f3f4e54 original commit: ba70e05ae24728a30e85618657b52c8da8d08b4a --- collects/scribble/latex-render.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt index 64c07710..c95ca7a3 100644 --- a/collects/scribble/latex-render.rkt +++ b/collects/scribble/latex-render.rkt @@ -259,8 +259,9 @@ (let* ([bstr (list-ref (list-ref bstr+info+suffix 0) 0)] [suffix (list-ref bstr+info+suffix 1)] [height (list-ref (list-ref bstr+info+suffix 0) 2)] - [descent (+ (list-ref (list-ref bstr+info+suffix 0) 3) - (- (ceiling height) height))] + [descent (and height + (+ (list-ref (list-ref bstr+info+suffix 0) 3) + (- (ceiling height) height)))] [fn (install-file (format "pict~a" suffix) bstr)]) (if descent (printf "\\raisebox{-~apx}{\\includegraphics{~a}}" descent fn)