aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-search.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r--src/interp/br-search.boot5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot
index 9890e86b..f1b336fe 100644
--- a/src/interp/br-search.boot
+++ b/src/interp/br-search.boot
@@ -957,8 +957,9 @@ mkGrepTextfile s ==
strconc(systemRootDirectory(),'"/algebra/", STRINGIMAGE s, '".text")
getTemporaryDirectory() ==
- getEnv '"TMP" or getEnv '"TEMP"
- or strconc(systemRootDirectory(),'"/algebra/")
+ t := getEnv '"TMPDIR" or getEnv '"TEMP" or
+ getEnv '"TEMPDIR" or getEnv '"TMP" => ensureTrailingSlash t
+ strconc(systemRootDirectory(),'"/algebra/")
mkGrepFile s == --called to generate a path name for a temporary grep file
suffix := getEnv '"SPADNUM"