--- a/ProjectDefinition.st Mon Oct 19 22:06:47 2009 +0200
+++ b/ProjectDefinition.st Mon Oct 19 22:09:07 2009 +0200
@@ -2810,7 +2810,6 @@
newStuffHasBeenLoaded := false.
(self infoPrinting and:[Smalltalk silentLoading not]) ifTrue:[
-self halt.
"/ thisContext fullPrintAll.
Transcript show:'loading '.
asAutoloaded ifTrue:[
@@ -2847,7 +2846,7 @@
].
self activityNotification:'Executing post-load action'.
meOrMySecondIncarnation postLoadAction.
-self halt.
+
meOrMySecondIncarnation projectIsLoaded:true.
^ newStuffHasBeenLoaded
@@ -4275,7 +4274,7 @@
"try to load a binary class library
Return true if ok, false if not."
- |libraryName meBefore meAfter retVal|
+ |libraryName|
libraryName := self libraryName.
@@ -4283,14 +4282,7 @@
"already loaded"
^ true
].
- meBefore := self.
- retVal := Smalltalk fileInClassLibrary:libraryName inPackage:self package.
- "/ the binary-load could have (usually has) overloaded me
- meAfter := Smalltalk at:(self name).
- meBefore == meAfter ifFalse:[
- self halt.
- ].
- ^ retVal.
+ ^ Smalltalk fileInClassLibrary:libraryName inPackage:self package.
!
loadExtensions
@@ -4713,11 +4705,11 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.256 2009-10-19 20:06:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.257 2009-10-19 20:09:07 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.256 2009-10-19 20:06:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.257 2009-10-19 20:09:07 cg Exp $'
! !
ProjectDefinition initialize!