I'd appreciate a word from native English speakers. Squeak has
#noneSatisfy: but the correct one from the grammar POV seems
#noneSatisfies: to me.
Paolo
2008-03-19 Paolo Bonzini <[EMAIL PROTECTED]>
* kernel/Collection.st: Rename #noneSatisfy: to #noneSatisfies:.
diff --git a/kernel/Collection.st b/kernel/Collection.st
index 056a6d3..4d0fd3f 100644
--- a/kernel/Collection.st
+++ b/kernel/Collection.st
@@ -399,7 +399,7 @@ of objects.'>
^true
]
- noneSatisfy: aBlock [
+ noneSatisfies: aBlock [
"Search the receiver for an element for which aBlock returns true.
Answer true if none does, false otherwise."
diff --git a/packages/seaside/PORTING b/packages/seaside/PORTING
index 92a6726..1220c8d 100644
--- a/packages/seaside/PORTING
+++ b/packages/seaside/PORTING
@@ -102,6 +102,8 @@ for i in *.st Seaside-Tests-Functional.st; do
(Time secondClock)' \
-r'([EMAIL PROTECTED] beginsWith: [EMAIL PROTECTED] )->
([EMAIL PROTECTED] startsWith: [EMAIL PROTECTED])' \
+ -r'([EMAIL PROTECTED] noneSatisfy: [EMAIL PROTECTED] )->
+ ([EMAIL PROTECTED] noneSatisfies: [EMAIL PROTECTED])' \
-r'([EMAIL PROTECTED] asUnicode)->
([EMAIL PROTECTED] codePoint)' \
-r'([EMAIL PROTECTED] trimBlanks)->
diff --git a/packages/seaside/core/Seaside-Core.st
b/packages/seaside/core/Seaside-Core.st
index 864a377..ff75db5 100644
--- a/packages/seaside/core/Seaside-Core.st
+++ b/packages/seaside/core/Seaside-Core.st
@@ -3,7 +3,7 @@ String extend [
asCapitalizedPhrase [
<category: '*Seaside-Core'>
| read words currentWord capitalizedWord |
- (self noneSatisfy: [:ea | ea isLowercase]) ifTrue: [^self].
+ (self noneSatisfies: [:ea | ea isLowercase]) ifTrue: [^self].
words := WriteStream on: String new.
read := ReadStream on: self.
[read atEnd] whileFalse:
@@ -9534,7 +9534,7 @@ sub
self main = 'text' ifTrue: [^false].
self main = 'application' ifFalse: [^true].
subTypes := self sub findTokens: '+'.
- ^subTypes noneSatisfy: [:each | #('x-javascript' 'xml') includes: each]
+ ^subTypes noneSatisfies: [:each | #('x-javascript' 'xml') includes:
each]
]
isNonStandard [
diff --git a/packages/seaside/core/Seaside-Tests.st
b/packages/seaside/core/Seaside-Tests.st
index b6e43ef..37df882 100644
--- a/packages/seaside/core/Seaside-Tests.st
+++ b/packages/seaside/core/Seaside-Tests.st
@@ -2402,8 +2402,8 @@ TestCase subclass: WAFileLibraryTest [
testNoneStatisfy [
<category: 'testing'>
- self deny: (#(1 2 3) noneSatisfy: [:each | each even]).
- self assert: (#(1 3 5) noneSatisfy: [:each | each even])
+ self deny: (#(1 2 3) noneSatisfies: [:each | each even]).
+ self assert: (#(1 3 5) noneSatisfies: [:each | each even])
]
testStandardFiles [
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
