fix interactive cancel in post-script-dc%

2010-11-26 11:21:48 -07:00 · 2010-11-26 11:21:48 -07:00 · 8ecd179cb5
commit 8ecd179cb5
parent 5aff70029a
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/draw/private/post-script-dc.rkt
+++ b/collects/racket/draw/private/post-script-dc.rkt
@ -78,7 +78,7 @@
                     h
                     landscape?)))))]
         [else
-          (values #f #f #f #f)])))
+          (values #f #f #f #f #f)])))

    (define-values (margin-x margin-y)
      (let ([xb (box 0)] [yb (box 0.0)])