From 88e0631c7184e5873a1407c7f1cb4289b1588b4c Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 18 Feb 2011 13:32:28 -0500 Subject: [PATCH] open output files in text mode --- collects/2htdp/batch-io.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/2htdp/batch-io.rkt b/collects/2htdp/batch-io.rkt index 663d087388..b4af560368 100644 --- 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))