From a04cecd5bf895da5ef3c2d49917bb7c60f4249b8 Mon Sep 17 00:00:00 2001
From: Eric Dobson <eric.n.dobson@gmail.com>
Date: Tue, 22 Oct 2013 08:41:32 -0700
Subject: [PATCH] Replace calls to display with write-string.

original commit: 3eb06116ef2c5e5677fb18270f76eeb2392979e1
---
 .../typed-racket/optimizer/transform.rkt      | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt
index c9aa2ae0..71868687 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/optimizer/transform.rkt
@@ -10,6 +10,9 @@
 ;; Use this script with caution.
 
 (define (transform file dir)
+  (define (write-stringln s)
+    (write-string s)
+    (newline))
   ;; generate the new log, that will become the expected log
   (define-values (new-tr-log new-output) (generate-log file dir))
   (define source-code
@@ -21,19 +24,19 @@
         (port->string in))))
   (with-output-to-file (build-path dir file) #:exists 'truncate
     (lambda ()
-      (displayln "#;#;")
-      (displayln "#<<END")
+      (write-stringln "#;#;")
+      (write-stringln "#<<END")
       (for ((entry new-tr-log))
-        (displayln entry))
-      (displayln "END")
+        (write-stringln entry))
+      (write-stringln "END")
       (if (regexp-match "\n" new-output)
           (begin
-            (displayln "#<<END")
-            (displayln new-output)
-            (display "END"))
+            (write-stringln "#<<END")
+            (write-stringln new-output)
+            (write-string "END"))
           (begin
             (write new-output)))
-          (display source-code))))
+          (write-string source-code))))
 
 ;; proc returns the list of tests to be run on each file
 (define (transform-dirs dirs)