diff options
Diffstat (limited to 'src/interp/pathname.boot.pamphlet')
| -rw-r--r-- | src/interp/pathname.boot.pamphlet | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/pathname.boot.pamphlet b/src/interp/pathname.boot.pamphlet index 300d2c41..cab703d1 100644 --- a/src/interp/pathname.boot.pamphlet +++ b/src/interp/pathname.boot.pamphlet @@ -103,7 +103,8 @@ mergePathnames(a,b) == (fm := pathnameDirectory(a)) = ['"*"] => b a -isSystemDirectory dir == EVERY(function CHAR_=,$SPADROOT,dir) +isSystemDirectory dir == + EVERY(function CHAR_=,systemRootDirectory(),dir) -- the next function is an improved version of the one in DEBUG LISP |