From 5763cc010437817a90b7ba255e2853c01987bb81 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 17 Feb 2010 20:38:07 +0000
Subject: [PATCH] added some debugging printouts to try to find out how to make
 this work in drdr

svn: r18123
---
 collects/tests/plai/test-random-mutator.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/tests/plai/test-random-mutator.ss b/collects/tests/plai/test-random-mutator.ss
index 6e88cf3cc5..b39f380b3d 100644
--- a/collects/tests/plai/test-random-mutator.ss
+++ b/collects/tests/plai/test-random-mutator.ss
@@ -31,6 +31,9 @@
         (for-each (λ (exp) (pretty-print exp port)) exps))
       #:exists 'truncate)
 
+    (printf "tmpfile: ~s\n" tmpfile)
+    (call-with-input-file tmpfile (λ (p) (copy-port p (current-output-port))))
+    
     (let ([sp (open-output-string)])
       (parameterize ([current-output-port sp])
         (dynamic-require tmpfile #f))