aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog6
-rw-r--r--src/interp/sys-driver.boot2
2 files changed, 7 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index fee862aa..ee20f0e4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,11 @@
2011-06-22 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ Fix ECL-based build failure.
+ * interp/sys-driver.boot (loadExposureGroupData): Use
+ getSystemModulePath to look up system modules.
+
+2011-06-22 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* boot/ast.boot (shoeEVALANDFILEACTQ): Remove.
(bfMain): Don't use it.
(translateToplevelExpression): Likewise.
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index 13742c4e..a2f3f245 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -101,7 +101,7 @@ systemDatabaseDirectory() ==
loadExposureGroupData() ==
LOAD('"./exposed", KEYWORD::VERBOSE,false,
KEYWORD::IF_-DOES_-NOT_-EXIST,nil) => "done"
- LOAD(strconc(systemRootDirectory(),'"algebra/exposed"),
+ LOAD(getSystemModulePath '"exposed",
KEYWORD::VERBOSE,false,KEYWORD::IF_-DOES_-NOT_-EXIST,nil) => "done"
"failed"