From a6708e246ad91491dc54f3e6c1ae5f44f80b9fba Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 22 Jun 2011 19:09:40 +0000 Subject: Fix ECL-based build failure. * interp/sys-driver.boot (loadExposureGroupData): Use getSystemModulePath to look up system modules. --- src/ChangeLog | 6 ++++++ src/interp/sys-driver.boot | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index fee862aa..ee20f0e4 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2011-06-22 Gabriel Dos Reis + + Fix ECL-based build failure. + * interp/sys-driver.boot (loadExposureGroupData): Use + getSystemModulePath to look up system modules. + 2011-06-22 Gabriel Dos Reis * boot/ast.boot (shoeEVALANDFILEACTQ): Remove. 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" -- cgit v1.2.3