--- a/ObjectFileLoader.st Wed Feb 20 14:58:12 2013 +0100
+++ b/ObjectFileLoader.st Wed Feb 20 16:59:09 2013 +0100
@@ -1219,7 +1219,7 @@
Returns nil on error, or the objectFile's handle if ok."
|filename pathName handle initAddr initDefinitionAddr initFunctionName initNames didInit info status
- dummyHandle msg isCModule doNotUnload|
+ dummyHandle msg isCModule doNotUnload definitionClassName definitionClass|
filename := pathNameOrFilename asFilename.
pathName := filename pathName.
@@ -1286,12 +1286,17 @@
for:nil
identifyAs:handle.
status := info at:1.
-self halt.
status == #ok ifTrue:[
"/ now, we have only loaded and installed the projectDefinition class.
"/ (but no containing classes or extensions, yet).
"/ let the projectDefinition load any prereqs
+ (initFunctionName startsWith:'lib') ifTrue:[
+ definitionClassName := initFunctionName copyFrom:4.
+ (definitionClass := Smalltalk classNamed:definitionClassName) notNil ifTrue:[
self halt.
+ definitionClass loadRequiredPackages.
+ ].
+ ].
]
].
@@ -4457,11 +4462,11 @@
!ObjectFileLoader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.331 2013-02-20 13:58:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.332 2013-02-20 15:59:09 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.331 2013-02-20 13:58:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.332 2013-02-20 15:59:09 cg Exp $'
! !