From f9164dee10187063b064f37445cdc8ec70d2b09b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Aug 2014 06:55:08 +0100 Subject: [PATCH] scribble: fix image metrics in HTML output for exact fractions Avoid generating sizes such as `1003790/1581`. original commit: 3801fc0432701c2081f9732aa793b3beb3bbc211 --- .../scribble-lib/scribble/html-render.rkt | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt index 9a7e501e..c2a3aa69 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt @@ -1403,14 +1403,19 @@ (if (and (not (list? cvt)) (equal? request 'png@2x-bytes)) (/ v 2.0) - v))]) + v))] + [number->decimal-string (lambda (s) + (number->string + (if (integer? s) + s + (exact->inexact s))))]) (list (add-padding cvt `(img ([src ,(install-file "pict.png" bstr)] [alt "image"] - [width ,(number->string (scale w))] - [height ,(number->string (scale h))]))))))] + [width ,(number->decimal-string (scale w))] + [height ,(number->decimal-string (scale h))]))))))] [(case request [(svg-bytes) (or (convert e 'svg-bytes+bounds8)