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

fix some call-with-output-file calls

Browse Source 
svn: r7923
This commit is contained in:
Matthew Flatt 2007-12-07 20:18:42 +00:00
parent b7a7de9000
commit ec2ed125b0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/launcher/launcher-unit.ss
View File

@ -466,7 +466,7 @@
(close-input-port p) (close-input-port p)
(check-len len-exedir exedir "executable home directory") (check-len len-exedir exedir "executable home directory")
(check-len len-command bstr "collection/file name") (check-len len-command bstr "collection/file name")
(let ([p (open-output-file dest 'update)]) (let ([p (open-output-file dest #:exists 'update)])
(write-magic p exedir pos-exedir len-exedir) (write-magic p exedir pos-exedir len-exedir)
(write-magic p (bytes-append bstr #"\0\0") pos-command len-command) (write-magic p (bytes-append bstr #"\0\0") pos-command len-command)
(let* ([suffix (variant-suffix (current-launcher-variant) #t)] (let* ([suffix (variant-suffix (current-launcher-variant) #t)]
@ -507,7 +507,7 @@
(loop)))) (loop))))
(let ([data-fork-size (file-position p)]) (let ([data-fork-size (file-position p)])
(close-input-port p) (close-input-port p)
(let ([p (open-output-file dest 'update)] (let ([p (open-output-file dest #:exists 'update)]
[str (str-list->sh-str (append [str (str-list->sh-str (append
(if (eq? kind 'mred) (if (eq? kind 'mred)
null null