DoWhatIMeanSupport.st
changeset 5738 59d8e9757a0f
parent 5714 043564e0ae20
child 5771 efe639d65c0e
--- a/DoWhatIMeanSupport.st	Mon Apr 23 16:50:46 2018 +0200
+++ b/DoWhatIMeanSupport.st	Tue Apr 24 09:57:36 2018 +0200
@@ -2027,7 +2027,7 @@
     ].
     Verbose == true ifTrue:[
         Transcript show:node; show:' -> '; showCR:classesOfReceiver.
-        ( node isVariable and:[node name = 'self']) ifTrue:[self halt].
+        ( node isVariable and:[node name = 'self']) ifTrue:[self breakPoint:#cg].
     ].
     
     "/ if there is already space before the cursor, and the parent node is not a message,
@@ -2981,7 +2981,7 @@
             
             addIfNotYetImplemented :=
                 [:list :sel |
-                sel = 'max:' ifTrue:[self halt].
+                    "/ sel = 'max:' ifTrue:[self breakPoint:#cg].
                     (sel sameAs: selectorTypedSoFar) ifFalse:[    
                         (allSelectors includes:sel) ifFalse:[
                             (classOrNil implements:sel asSymbol) ifFalse:[