From 8696934ccab25cb6c47c0f6bfc4d87d1ee943fab Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 Jul 2003 03:21:27 +0000
Subject: [PATCH] .

original commit: 4a62b84a34152564ca20f4707f92329196e8f5a5
---
 collects/mred/mred.ss | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 620c5654..75f251ea 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7376,6 +7376,8 @@
 (define readable-snip<%>
   (interface ()
     read-one-special))
+
+(define empty-string (make-string 0))
       
 ;; open-input-text-editor : (instanceof text%) num num -> input-port
 ;; creates a user port whose input is taken from the text%,
@@ -7425,7 +7427,7 @@
 			  (set! next? #t)
 			  (let ([c (min (send-generic snip get-count-generic) (- end snip-start))])
 			    (display (send-generic snip get-text-generic 0 c) pipe-w)
-			    0)]
+			    (read-string-avail!* to-str pipe-r))]
 			 [else
 			  (set! next? #f)
 			  0]))
@@ -7448,16 +7450,16 @@
 				       (with-handlers ([exn:special-comment?
 							(lambda (exn)
 							  ;; implies "done"
-							  (next-snip "")
+							  (next-snip empty-string)
 							  (raise exn))])
 					 (let-values ([(val size done?)
 						       (send the-snip read-one-special pos file line col ppos)])
 					   (if done?
-					       (next-snip "")
+					       (next-snip empty-string)
 					       (set! pos (add1 pos)))
 					   (values val size)))
 				       (begin
-					 (next-snip "")
+					 (next-snip empty-string)
 					 (values (send the-snip copy) 1)))))]
 			      [else eof]))]
 	       [close (lambda () (void))]
@@ -7475,7 +7477,7 @@
 				  (make-semaphore-peek lock-semaphore)))))
 		      #f ; no peek
 		      close)])
-	  (update-str-to-snip "")
+	  (update-str-to-snip empty-string)
 	  (port-count-lines! port)
 	  port)))]
    [(text start) (open-input-text-editor text start 'end)]