diff options
Diffstat (limited to 'src/interp/util.lisp.pamphlet')
| -rw-r--r-- | src/interp/util.lisp.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/util.lisp.pamphlet b/src/interp/util.lisp.pamphlet index 80d2443e..b8a81377 100644 --- a/src/interp/util.lisp.pamphlet +++ b/src/interp/util.lisp.pamphlet @@ -1499,7 +1499,7 @@ function assumes that \\ can only appear as first character of name. (defun sourcepath (f) "find the sourcefile in the system directories" (let (axiom algebra naglink) - (setq axiom (|getEnv| "AXIOM")) + (setq axiom (|systemRootDirectory|)) (setq algebra (concatenate 'string axiom "/../../src/algebra/" f ".spad")) (setq naglink (concatenate 'string axiom "/../../src/naglink/" f ".spad")) (cond |