added some debugging printouts to try to find out how to make this work in drdr

svn: r18123
2010-02-17 20:38:07 +00:00 · 2010-02-17 20:38:07 +00:00 · 5763cc0104
commit 5763cc0104
parent 81d38e6acb
1 changed files with 3 additions and 0 deletions
--- 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))