From 90e5559a43dfb6d27c3ac72978416aade81ec847 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 29 Sep 2002 01:56:10 +0000
Subject: [PATCH] .

original commit: 0400ae09f10a816d40dc8eb859df89357a9d9686
---
 collects/mred/mred.ss | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index ccd3d2e1..aca5783c 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -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