suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed eps? argument to pasteboard print method

Browse Source 
svn: r13060

original commit: 72b7e59851db6a52447d01f4cba192b0f11f7ac1
This commit is contained in:
Robby Findler 2009-01-10 23:16:40 +00:00
parent 73a74ccb0c
commit 45c85f643b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/mred/private/editor.ss
View File

@ -341,24 +341,24 @@
((void) after-edit-sequence)) ((void) after-edit-sequence))
(private* (private*
[sp (lambda (x y z f b?) [sp (lambda (x y z f b? eps?)
;; let super method report z errors: ;; let super method report z errors:
(let ([zok? (memq z '(standard postscript))]) (let ([zok? (memq z '(standard postscript))])
(when zok? (when zok?
(check-top-level-parent/false '(method editor<%> print) f)) (check-top-level-parent/false '(method editor<%> print) f))
(let ([p (and zok? f (mred->wx 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* (override*
[print [print
(entry-point (entry-point
(case-lambda (case-lambda
[() (sp #t #t 'standard #f #t)] [() (sp #t #t 'standard #f #t #f)]
[(x) (sp x #t 'standard #f #t)] [(x) (sp x #t 'standard #f #t #f)]
[(x y) (sp x y 'standard #f #t)] [(x y) (sp x y 'standard #f #t #f)]
[(x y z) (sp x y z #f #t)] [(x y z) (sp x y z #f #t #f)]
[(x y z f) (sp x y z f #t)] [(x y z f) (sp x y z f #t #f)]
[(x y z f b?) (sp x y z f b?)] [(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?)]))] [(x y z f b? eps?) (sp x y z f b? eps?)]))]
[on-new-box [on-new-box