From 8ecd179cb5dc96def9c4c92648ee7401b6a8c472 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 26 Nov 2010 11:21:48 -0700 Subject: [PATCH] fix interactive cancel in post-script-dc% --- collects/racket/draw/private/post-script-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/draw/private/post-script-dc.rkt b/collects/racket/draw/private/post-script-dc.rkt index 727375eb5a..cb2ab554e0 100644 --- 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)])