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

commit ee3af7611f44773c0a136e0a4c9bcb61e6693757
parent 1558ad553261d94c014e79642e3ca172d9500abd
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 18 Jul 2014 06:59:20 +0100

scribble: fix PDF rendering for image without bounding-box info

Merge to v6.1

original commit: 09b4445c7a28b1d8fc3feb2d4ab7a64e9a991a8a

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/latex-render.rkt
@@ -399,7 +399,8 @@
                                                             (- (+ (list-ref (list-ref bstr+info+suffix 0) 3)
                                                                   (- (ceiling height) height))
                                                                pad-bottom))]
-                                              [width (- (list-ref (list-ref bstr+info+suffix 0) 1) pad-left pad-right)]
+                                              [width (let ([w (list-ref (list-ref bstr+info+suffix 0) 1)])
+                                                       (and w (- w pad-left pad-right)))]
                                               [fn (install-file (format "pict~a" suffix) bstr)])
                                          (if descent
                                              (printf "\\raisebox{-~abp}{\\makebox[~abp][l]{\\includegraphics[~atrim=~a ~a ~a ~a]{~a}}}"