From ff186ec0258d8a2df941714392a5bc0140888901 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 21 Nov 2007 02:18:09 +0000
Subject: [PATCH] fix more with-out-file keywords

svn: r7796
---
 collects/drscheme/private/frame.ss              | 2 +-
 collects/drscheme/private/language.ss           | 6 +++---
 collects/drscheme/private/launcher-bootstrap.ss | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/drscheme/private/frame.ss b/collects/drscheme/private/frame.ss
index ebd87abbf7..3970628ce7 100644
--- a/collects/drscheme/private/frame.ss
+++ b/collects/drscheme/private/frame.ss
@@ -438,7 +438,7 @@
                                (unless (eof-object? s) 
                                  (display s) 
                                  (loop (+ total (string-length s))))))))
-                       'binary 'truncate))
+                       #:mode 'binary #:exists 'truncate))
                    (send d show #f)))]) 
         (send d center) 
         (make-object button% (string-constant &stop)
diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.ss
index a33b0291b5..68e7919d27 100644
--- a/collects/drscheme/private/language.ss
+++ b/collects/drscheme/private/language.ss
@@ -888,8 +888,8 @@
                             (list))
                       ((dynamic-require ',init-code-mod-name 'init-code)))
                    port))
-          'truncate
-          'text)
+          #:exists 'truncate
+          #:mode 'text)
         
         (let ([new-init-code 
                (list*
@@ -899,7 +899,7 @@
           (call-with-output-file init-code-tmp-filename
             (λ (port)
               (write new-init-code port))
-            'truncate 'text)))
+            #:exists 'truncate #:mode 'text)))
       
       (let* ([pre-to-be-embedded-module-specs0
               (if (or (not transformer-module-language-spec)
diff --git a/collects/drscheme/private/launcher-bootstrap.ss b/collects/drscheme/private/launcher-bootstrap.ss
index 025337ecae..1ae5262a1d 100644
--- a/collects/drscheme/private/launcher-bootstrap.ss
+++ b/collects/drscheme/private/launcher-bootstrap.ss
@@ -31,7 +31,7 @@
   (call-with-output-file init-code-tmp-filename
     (λ (port)
       (write init-code port))
-    'truncate 'text)
+    #:exists 'truncate #:mode 'text)
   
   (define init-code-proc (dynamic-require init-code-tmp-filename 'init-code))