From 46591cc2c0e72b0a02df12084bbefcc6077f8237 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 15 Aug 2022 13:01:30 -0700 Subject: [PATCH] raise error on negative printable width or height --- quad/quadwriter/render.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt index 1946a2b4..97300a7b 100644 --- a/quad/quadwriter/render.rkt +++ b/quad/quadwriter/render.rkt @@ -339,7 +339,10 @@ (setup-margins qs page-width page-height)) (define gutter-margin (and (pair? qs) (quad-ref (car qs) :page-margin-gutter 0))) (define printable-width (- page-width left-margin right-margin gutter-margin)) - (define printable-height (- page-height top-margin bottom-margin)) + (unless (> printable-width 0) + (raise-user-error 'render "printable width greater than 0: got ~a" printable-height)) (define printable-height (- page-height top-margin bottom-margin)) + (unless (> printable-height 0) + (raise-user-error 'render "printable height greater than 0: got ~a" printable-height)) (define column-count (setup-column-count qs)) (define column-gap (setup-column-gap qs)) (define line-wrap-size (/ (- printable-width (* (sub1 column-count) column-gap)) column-count))