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

open output files in text mode

Browse Source
This commit is contained in:
Matthias Felleisen 2011-02-18 13:32:28 -05:00
parent f8d761226d
commit 88e0631c71
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/2htdp/batch-io.rkt
View File

@ -124,6 +124,7 @@
(let ([result (not (file-exists? f))]) (let ([result (not (file-exists? f))])
(with-output-to-file f (with-output-to-file f
(lambda () (printf "~a" str)) (lambda () (printf "~a" str))
#:mode 'text
#:exists 'replace) #:exists 'replace)
f)) f))