From 45c85f643baf3fdb65ae2e5630d8b515173534f7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 10 Jan 2009 23:16:40 +0000 Subject: [PATCH] fixed eps? argument to pasteboard print method svn: r13060 original commit: 72b7e59851db6a52447d01f4cba192b0f11f7ac1 --- collects/mred/private/editor.ss | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.ss index f5c4d3a7..1ecb655e 100644 --- a/collects/mred/private/editor.ss +++ b/collects/mred/private/editor.ss @@ -341,24 +341,24 @@ ((void) after-edit-sequence)) (private* - [sp (lambda (x y z f b?) + [sp (lambda (x y z f b? eps?) ;; let super method report z errors: (let ([zok? (memq z '(standard postscript))]) (when zok? (check-top-level-parent/false '(method editor<%> print) f)) (let ([p (and zok? f (mred->wx f))]) - (as-exit (lambda () (super print x y z p b?))))))]) + (as-exit (lambda () (super print x y z p b? eps?))))))]) (override* [print (entry-point (case-lambda - [() (sp #t #t 'standard #f #t)] - [(x) (sp x #t 'standard #f #t)] - [(x y) (sp x y 'standard #f #t)] - [(x y z) (sp x y z #f #t)] - [(x y z f) (sp x y z f #t)] - [(x y z f b?) (sp x y z f b?)] + [() (sp #t #t 'standard #f #t #f)] + [(x) (sp x #t 'standard #f #t #f)] + [(x y) (sp x y 'standard #f #t #f)] + [(x y z) (sp x y z #f #t #f)] + [(x y z f) (sp x y z f #t #f)] + [(x y z f b?) (sp x y z f b? #f)] [(x y z f b? eps?) (sp x y z f b? eps?)]))] [on-new-box