aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-utility.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r--src/interp/sys-utility.boot4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index 3b119a65..d74c74ba 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -171,3 +171,7 @@ $REPLACE(filespec1,filespec2) ==
checkMkdir path ==
mkdir path = 0 => true
systemError ['"cannot create directory",:bright path]
+
+++ return the pathname to the system module designated by `m'.
+getSystemModulePath m ==
+ CONCAT(systemRootDirectory(),'"algebra/",m,'".",$faslType)