oops: leftover halts.
authorClaus Gittinger <cg@exept.de>
Wed, 03 Mar 2010 13:20:53 +0100
changeset 12749 160f7b56e426
parent 12748 0092049ca4d1
child 12750 a2086ea63bfb
oops: leftover halts.
ProjectDefinition.st
--- a/ProjectDefinition.st	Tue Mar 02 12:07:16 2010 +0100
+++ b/ProjectDefinition.st	Wed Mar 03 13:20:53 2010 +0100
@@ -3838,7 +3838,7 @@
     |newStuffHasBeenLoaded meOrMySecondIncarnation|
 
     self projectIsLoaded ifTrue:[^ false].
-    thisContext isRecursive ifTrue:[self halt. ^ false].    "/ avoid endless loops
+    thisContext isRecursive ifTrue:[self breakPoint:#cg. ^ false].    "/ avoid endless loops
 
     newStuffHasBeenLoaded := false.
 
@@ -4548,7 +4548,7 @@
             class notNil ifTrue:[
                 oldMethod := oldPackage savedOverwrittenMethodForClass:class selector:selector.
                 oldMethod notNil ifTrue:[
-                    self halt.    
+                    self breakPoint:#cg.    
                 ].
             ]
         ].
@@ -4753,7 +4753,7 @@
     "load extension methods - do not load if they are already present"
 
     self hasAllExtensionsLoaded ifFalse:[
-self halt.
+        self breakPoint:#cg.
         Verbose == true ifTrue:[
             Transcript showCR:('  %1: filing in extensions...' bindWith:self name).
         ].
@@ -5341,11 +5341,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.308 2010-03-02 11:07:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.309 2010-03-03 12:20:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.308 2010-03-02 11:07:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.309 2010-03-03 12:20:53 cg Exp $'
 ! !
 
 ProjectDefinition initialize!