open output files in text mode

2011-02-18 13:32:28 -05:00 · 2011-02-18 13:32:28 -05:00 · 88e0631c71
commit 88e0631c71
parent f8d761226d
1 changed files with 1 additions and 0 deletions
--- a/collects/2htdp/batch-io.rkt
+++ b/collects/2htdp/batch-io.rkt
@ -124,6 +124,7 @@
  (let ([result (not (file-exists? f))])
    (with-output-to-file f 
      (lambda () (printf "~a" str))
+      #:mode 'text
      #:exists 'replace)
    f))