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

.

Browse Source 
original commit: 0400ae09f10a816d40dc8eb859df89357a9d9686
This commit is contained in:
Matthew Flatt 2002-09-29 01:56:10 +00:00
parent 0dc51fc15a
commit 90e5559a43
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mred/mred.ss
View File

@ -2298,23 +2298,24 @@
(as-exit (lambda () (set-max-width new-width)))))))))])
(private
[sp (lambda (x y z f)
[sp (lambda (x y z f b?)
;; 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))))))])
(as-exit (lambda () (super-print x y z p b?))))))])
(override
[print
(entry-point
(case-lambda
[() (sp #t #t 'standard #f)]
[(x) (sp x #t 'standard #f)]
[(x y) (sp x y 'standard #f)]
[(x y z) (sp x y z #f)]
[(x y z f) (sp x y z f)]))]
[() (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?)]))]
[on-new-box
(entry-point