suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix more with-out-file keywords

Browse Source 
svn: r7796
This commit is contained in:
Matthew Flatt 2007-11-21 02:18:09 +00:00
parent 60b1a5c55d
commit ff186ec025
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/frame.ss
View File

@ -438,7 +438,7 @@
(unless (eof-object? s) (unless (eof-object? s)
(display s) (display s)
(loop (+ total (string-length s)))))))) (loop (+ total (string-length s))))))))
'binary 'truncate)) #:mode 'binary #:exists 'truncate))
(send d show #f)))]) (send d show #f)))])
(send d center) (send d center)
(make-object button% (string-constant &stop) (make-object button% (string-constant &stop)

6
collects/drscheme/private/language.ss
View File

@ -888,8 +888,8 @@
(list)) (list))
((dynamic-require ',init-code-mod-name 'init-code))) ((dynamic-require ',init-code-mod-name 'init-code)))
port)) port))
'truncate #:exists 'truncate
'text) #:mode 'text)
(let ([new-init-code (let ([new-init-code
(list* (list*
@ -899,7 +899,7 @@
(call-with-output-file init-code-tmp-filename (call-with-output-file init-code-tmp-filename
(λ (port) (λ (port)
(write new-init-code port)) (write new-init-code port))
'truncate 'text))) #:exists 'truncate #:mode 'text)))
(let* ([pre-to-be-embedded-module-specs0 (let* ([pre-to-be-embedded-module-specs0
(if (or (not transformer-module-language-spec) (if (or (not transformer-module-language-spec)

2
collects/drscheme/private/launcher-bootstrap.ss
View File

@ -31,7 +31,7 @@
(call-with-output-file init-code-tmp-filename (call-with-output-file init-code-tmp-filename
(λ (port) (λ (port)
(write init-code port)) (write init-code port))
'truncate 'text) #:exists 'truncate #:mode 'text)
(define init-code-proc (dynamic-require init-code-tmp-filename 'init-code)) (define init-code-proc (dynamic-require init-code-tmp-filename 'init-code))