ObjectFileLoader.st
changeset 3007 202281d1ff47
parent 3006 754019e495a6
child 3008 53cae5e74d7e
--- 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 $'
 ! !