From 8f1068f2e0ccd2443673d9f9cfee6f402a813baf Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 3 May 2019 10:27:40 -0700 Subject: [PATCH] dd --- quad/quadwriter/core.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/core.rkt b/quad/quadwriter/core.rkt index 98a0dfd7..c03c0ad0 100644 --- a/quad/quadwriter/core.rkt +++ b/quad/quadwriter/core.rkt @@ -591,7 +591,8 @@ (define default-x-margin (min (* 72 1.5) (floor (* .10 (pdf-width pdf))))) (define default-y-margin (min 72 (floor (* .10 (pdf-width pdf))))) (parameterize ([current-pdf pdf] - [verbose-quad-printing? #false]) + [verbose-quad-printing? #false] + [draw-debug? #true]) (let* ([qs (time-name hyphenate (handle-hyphenate qs))] [qs (map ->string-quad qs)] [qs (insert-first-line-indents qs)]