From 3c9d63dd628216dbe38a16b44a81c860d9e9497e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 11 Jun 2019 21:53:26 -0700 Subject: [PATCH] missing image-scaling case --- quad/quadwriter/layout.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/layout.rkt b/quad/quadwriter/layout.rkt index 6934836d..9507bea1 100644 --- a/quad/quadwriter/layout.rkt +++ b/quad/quadwriter/layout.rkt @@ -109,7 +109,8 @@ [(list #false (? number? h)) (define ratio (/ h img-height)) (list (* ratio img-width) h)] [(list (? number? w) #false) (define ratio (/ w img-width)) - (list w (* ratio img-height))])) + (list w (* ratio img-height))] + [(list #false #false) (list img-width img-height)])) (struct-copy image-quad q:image [attrs #:parent quad (let ([h (hash-copy (quad-attrs q))])