moved temp files into the temp directory

svn: r18015
2010-02-08 17:40:46 +00:00 · 2010-02-08 17:40:46 +00:00 · 49702f8f59
commit 49702f8f59
parent 0f08499e54
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/drscheme/module-lang-test-utils.ss
+++ b/collects/tests/drscheme/module-lang-test-utils.ss
@ -49,7 +49,7 @@
  (set! init-temp-files
        (let ([old init-temp-files])
          (λ ()
-            (let ([file (build-path (this-expression-source-directory) (format "~a.ss" name))])
+            (let ([file (build-path (find-system-path 'temp-dir) (format "~a.ss" name))])
              (set! temp-files (cons file temp-files))
              (with-output-to-file file #:exists 'truncate
                (lambda () (printf "~s\n" code))))