dd

5 years ago · 8f1068f2e0
parent fc5bc49724
commit 8f1068f2e0
1 changed files with 2 additions and 1 deletions
--- 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)]