From a8c8f3243d2c837755ef74bea88f62a7eb7ad77c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 25 May 2019 08:11:46 -0700 Subject: [PATCH] nit --- quad/quadwriter/core.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quad/quadwriter/core.rkt b/quad/quadwriter/core.rkt index 3e53e2e6..db9caea0 100644 --- a/quad/quadwriter/core.rkt +++ b/quad/quadwriter/core.rkt @@ -650,7 +650,7 @@ ;; if only top or bottom margin is provided, copy other value in preference to default margin [top-margin (or (debug-y-margin) (quad-ref (car qs) 'page-margin-top (λ () (quad-ref (car qs) 'page-margin-bottom default-top-margin))))] - [bottom-margin #R (let ([vert-optical-adjustment 10]) + [bottom-margin (let ([vert-optical-adjustment 10]) (or (debug-y-margin) (quad-ref (car qs) 'page-margin-bottom (λ () (+ vert-optical-adjustment (quad-ref (car qs) 'page-margin-top (* default-top-margin 1.4)))))))] [page-wrap-size (- (pdf-height pdf) top-margin bottom-margin)]