Added comments to haltFromCount: and haltOnCount:

I did not change the naming: the logic is fixed and the meaning can be discussed, if possible with native speaker's help.
pharo-project · Jan 30, 2019 · 691b56d · 691b56d
1 parent 2abba39
commit 691b56d
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 4 deletions.
diff --git a/src/Kernel/Halt.class.st b/src/Kernel/Halt.class.st
@@ -74,6 +74,8 @@ Class {
 
 { #category : #halting }
 Halt class >> fromCount: anInteger [
+	"Always halt after a count has been reached"
+
 	<debuggerCompleteToSender>
 	^ self
 		onCountWithBehavior: [ :node | (node propertyAt: #haltCount) >= anInteger ]
@@ -144,6 +146,8 @@ Halt class >> now: aString [
 
 { #category : #halting }
 Halt class >> onCount: anInteger [
+	"Halts once when a count is reached"
+
 	<debuggerCompleteToSender>
 	^ self
 		onCountWithBehavior: [ :node | (node propertyAt: #haltCount) = anInteger ]

diff --git a/src/Kernel/Object.class.st b/src/Kernel/Object.class.st
@@ -977,9 +977,11 @@ Object >> halt: aString [
 ]
 
 { #category : #halting }
-Object >> haltFromCount: anInteger [ 
+Object >> haltFromCount: anInteger [
+	"Always halt after a count has been reached"
+
 	<debuggerCompleteToSender>
-	Halt fromCount: anInteger.
+	Halt fromCount: anInteger
 ]
 
 { #category : #halting }
@@ -1007,9 +1009,11 @@ Object >> haltIfTest [
 ]
 
 { #category : #halting }
-Object >> haltOnCount: anInteger [ 
+Object >> haltOnCount: anInteger [
+	"Halts once when a count is reached"
+
 	<debuggerCompleteToSender>
-	Halt onCount: anInteger.
+	Halt onCount: anInteger
 ]
 
 { #category : #halting }