fix more with-out-file keywords

svn: r7796

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)

collects/drscheme/private/language.ss

@@ -888,8 +888,8 @@
                             (list))
                       ((dynamic-require ',init-code-mod-name 'init-code)))
                    port))
-          'truncate
+          #:exists 'truncate
-          'text)
+          #: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)

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))