diff options
Diffstat (limited to 'src/interp/br-search.boot.pamphlet')
| -rw-r--r-- | src/interp/br-search.boot.pamphlet | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/interp/br-search.boot.pamphlet b/src/interp/br-search.boot.pamphlet index e232b231..d8e2cbea 100644 --- a/src/interp/br-search.boot.pamphlet +++ b/src/interp/br-search.boot.pamphlet @@ -975,19 +975,20 @@ dbGetCommentOrigin line == line grepSource key == - key = 'libdb => STRCONC($SPADROOT,'"/algebra/libdb.text") - key = 'gloss => STRCONC($SPADROOT,'"/algebra/glosskey.text") + key = 'libdb => STRCONC(systemRootDirectory(),'"/algebra/libdb.text") + key = 'gloss => STRCONC(systemRootDirectory(),'"/algebra/glosskey.text") key = $localLibdb => $localLibdb mkGrepTextfile MEMQ(key, '(_. a c d k o p x)) => 'libdb 'comdb -mkGrepTextfile s == STRCONC($SPADROOT,"/algebra/", STRINGIMAGE s, '".text") +mkGrepTextfile s == + STRCONC(systemRootDirectory(),"/algebra/", STRINGIMAGE s, '".text") mkGrepFile s == --called to generate a path name for a temporary grep file prefix := $standard or $aixTestSaturn => '"/tmp/" - STRCONC($SPADROOT,'"/algebra/") + STRCONC(systemRootDirectory(),'"/algebra/") suffix := getEnv '"SPADNUM" STRCONC(prefix, PNAME s,'".txt.", suffix) |