typos

demarey · Jul 23, 2020 · 8f036e6 · 8f036e6
1 parent 6a41a6a
commit 8f036e6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/Kernel-Tests/CompiledCodeTest.class.st b/src/Kernel-Tests/CompiledCodeTest.class.st
@@ -45,9 +45,9 @@ CompiledCodeTest >> testHasSelector [
 	self assert: (method hasSelector: #arrayInBlock).
 	"pragmas are covered"
 	self assert: (method hasSelector: #pragma:).
-	"literals as args of pragmas. too"
+	"args of pragmas are found, too"
 	self assert: (method hasSelector: #pragma:).
-	"the method selecto NOT"
+	"the method selector NOT"
 	self deny: (method hasSelector: #method).
 ]
 
@@ -84,10 +84,10 @@ CompiledCodeTest >> testHasSelectorSpecialSelectorIndex [
 	"pragmas are covered"
 	specialIndex := Smalltalk specialSelectorIndexOrNil: #pragma:.
 	self assert: (method hasSelector: #pragma: specialSelectorIndex: specialIndex).
-	"literals as args of pragmas. too"
+	"args of pragmas are found, too"
 	specialIndex := Smalltalk specialSelectorIndexOrNil: #pragma:.
 	self assert: (method hasSelector: #pragma: specialSelectorIndex: specialIndex).
-	"the method selecto NOT"
+	"the method selector NOT"
 	specialIndex := Smalltalk specialSelectorIndexOrNil: #method.
 	self deny: (method hasSelector: #method specialSelectorIndex: specialIndex).
 ]

diff --git a/src/Kernel/CompiledCode.class.st b/src/Kernel/CompiledCode.class.st
@@ -299,7 +299,7 @@ CompiledCode >> hasSelector: selector specialSelectorIndex: specialOrNil [
 
 
 	(self refersToLiteral: selector) ifTrue: [ ^ true ].
-	"refersToLiteral: traverses all blocks, but only for no-special literals"
+	"refersToLiteral: traverses all blocks, but only for non-special literals"
 	specialOrNil ifNil: [ ^ false ].
 	"if the selector is special, scan all blocks and myself"
 	^ self withAllBlocks anySatisfy: [ :aCompiledCode | aCompiledCode scanFor: