From 49702f8f5950c72a57174e3da088520f528f65a5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 8 Feb 2010 17:40:46 +0000 Subject: [PATCH] moved temp files into the temp directory svn: r18015 --- collects/tests/drscheme/module-lang-test-utils.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/drscheme/module-lang-test-utils.ss b/collects/tests/drscheme/module-lang-test-utils.ss index 4dc6289b12..2f34ad34f8 100644 --- 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))))