From 68a266599da2c582afb1d06e6c9d2756ba6bcc3b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 8 May 2008 12:09:08 +0000 Subject: [PATCH] use tmp dir for saved prefs file svn: r9736 --- collects/tests/framework/prefs.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/tests/framework/prefs.ss b/collects/tests/framework/prefs.ss index 52980d16eb..a083a7a485 100644 --- a/collects/tests/framework/prefs.ss +++ b/collects/tests/framework/prefs.ss @@ -1,6 +1,5 @@ (module prefs mzscheme (require "test-suite-utils.ss" - mzlib/etc mzlib/list) (define ((check-eq? x) y) (eq? x y)) @@ -8,11 +7,11 @@ (define marshalling-pref-sym 'plt:not-a-real-preference-marshalling) (define default-test-sym 'plt:not-a-real-preference-default-test) - (define saved-prefs-file + (define saved-prefs-file (let loop ([n 0]) (let ([candidate - (build-path (this-expression-source-directory) - (format "save-prefs.~a" n))]) + (build-path (find-system-path 'temp-dir) + (format "saved-prefs.~a" n))]) (if (file-exists? candidate) (loop (+ n 1)) candidate))))