bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 1f7cb9b151fa9f5c12750276e9e2faaf0ec2cda4
parent 32be99330cc744e7ccd3773f66a7a086cb1f6c2f
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 29 Mar 2011 08:31:10 -0600

Scribble: fix Latex-renderer bug introduced by 67b7c8f3f4e54

original commit: ba70e05ae24728a30e85618657b52c8da8d08b4a

Diffstat:
M
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
@@ -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)