fixed copy-file misuse

original commit: e8ff56a1a06139f9da38b6185a85938ab04e9127
1998-07-14 02:12:15 +00:00 · 1998-07-14 02:12:15 +00:00 · d617c48c1c
commit d617c48c1c
parent cdb60d3814
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@ -872,7 +872,8 @@
 			       (not (= format wx:const-media-ff-copy))
 			       (file-exists? name))
 		      (let ([back-name (mred:path-utils:generate-backup-name name)])
-			(copy-file name back-name)))
+			(with-handlers ([exn:i/o:filesystem:rename? void])
+			  (copy-file name back-name))))
 		    #t)))]
 	  [do-close
 	   (lambda ()