diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-10 05:21:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-10 05:21:00 +0000 |
| commit | 6cd03930cf6d06aeb22d8a03f88e21aed3741846 (patch) | |
| tree | 9afeca88d3d16cad78167df6e8936c0a70724b4c /src/interp/sys-driver.boot | |
| parent | 6134f0731a2f170fd76b08b435f7a813ee74b806 (diff) | |
| download | open-axiom-6cd03930cf6d06aeb22d8a03f88e21aed3741846.tar.gz | |
* lisp/core.lisp.in ("$faslType"): Export.
* interp/sys-driver.boot (algebraBootstrapDir): New.
* interp/lisplib.boot (findModule): New.
(loadLib): Use it.
* interp/daase.lisp (localdatabase): Make sure loadable modules
have proper extensions.
* interp/sys-utility.boot (existingFile?): New.
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 9b35d618..35681028 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -78,7 +78,6 @@ systemRootDirectory() == ensureTrailingSlash cdr dir $systemInstallationDirectory - +++ Returns the system algebra directory, as specified on command +++ line. nil, otherwise. systemAlgebraDirectory() == @@ -86,6 +85,12 @@ systemAlgebraDirectory() == ensureTrailingSlash cdr dir nil ++++ Returns a path to the directory containing algebra bootstsrap files. +algebraBootstrapDir() == + dir := ASSOC(Option '"strap",%systemOptions()) => + ensureTrailingSlash rest dir + nil + ++ stdStreamIsTerminal: ++ returns 1 if the standard stream is attached to a terminal; ++ otherwise 0. |