insert-file -> insert-port

svn: r23 original commit: 95b5b5ff1381ea0350bdf400bd89bf6e67a2fef8
2005-05-31 16:38:30 +00:00 · 2005-05-31 16:38:30 +00:00 · 7fe3dba589
commit 7fe3dba589
parent 69ad65add5
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])])