insert-file -> insert-port

svn: r23
2005-05-31 16:38:30 +00:00 · 2005-05-31 16:38:30 +00:00 · 95b5b5ff13
commit 95b5b5ff13
parent 8fa73ec32f
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/snipfile.ss
+++ b/collects/mred/private/snipfile.ss
@ -224,7 +224,7 @@
      (let ([p (cond
 		[(regexp-match-peek #rx#"^WXME01[0-9][0-9] ## " p)
 		 (let ([t (make-object text%)])
-		   (send t insert-file p 'standard)
+		   (send t insert-port p 'standard)
 		   (close-input-port p)
 		   (open-input-text-editor t))]
 		[else p])])