More fixes for DrDr

svn: r16345
2009-10-16 22:30:04 +00:00 · 2009-10-16 22:30:04 +00:00 · ba99cb4dbf
commit ba99cb4dbf
parent e78faf0669
1 changed files with 6 additions and 1 deletions
--- a/collects/redex/examples/arithmetic.ss
+++ b/collects/redex/examples/arithmetic.ss
@ -38,5 +38,10 @@
   [(--> (in-hole e-ctxt_1 a) (in-hole e-ctxt_1 b))
    (c--> a b)]))

+(define traces-file
+  (make-temporary-file "traces~a.ps"))
+
 (traces/ps reductions (term (- (* (sqrt 36) (/ 1 2)) (+ 1 2)))
-           "/home/mflatt/Desktop/p.ps")
+           traces-file)
+
+(printf "Traces are in ~a~n" traces-file)