racket/gui: fix a mzscheme->racket/base issue

original commit: a38e6a19abfa61945cc98b5688e49fd7305c9361
2012-05-26 16:22:33 -04:00 · 2012-05-26 16:22:33 -04:00 · af300b7857
commit af300b7857
parent 22d1436052
1 changed files with 3 additions and 1 deletions
--- a/collects/mred/private/editor.rkt
+++ b/collects/mred/private/editor.rkt
@ -247,7 +247,9 @@
                   (dynamic-wind
                     void
                     (lambda ()
-                       (set! port (open-output-file file (if text-mode? 'text 'binary) 'truncate/replace))
+                       (set! port (open-output-file file
+                                                    #:mode (if text-mode? 'text 'binary)
+                                                    #:exists 'truncate/replace))
                       (wx:file-creator-and-type file #"mReD" (if text? #"TEXT" #"WXME"))
                       (wx:begin-busy-cursor)
                       (dynamic-wind