ProjectDefinition.st
changeset 12295 fbd977f707de
parent 12294 c46be62dee24
child 12296 71887e4be68b
--- 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!