--- a/SequenceableCollection.st Thu Jun 30 17:40:16 2011 +0200
+++ b/SequenceableCollection.st Thu Jun 30 17:40:20 2011 +0200
@@ -4654,15 +4654,16 @@
"evaluate the argument, aBlock for successive elements from
each the receiver and the argument, aSequenceableCollection.
The second argument, aBlock must be a two-argument block.
- The collection argument must implement access via a numeric key and
- the sizes must be the same."
+ The collection argument must implement access via a numeric key
+ and (new!!) the sizes must be the same."
|stop "{ Class: SmallInteger }" |
stop := self size.
aSequenceableCollection size == stop ifFalse:[
- ^ self error:'collections must be of the same size'.
+ NotEnoughElementsSignal raiseRequestErrorString:'collections must be of the same size'.
].
+
1 to:stop do:[:index |
aTwoArgBlock value:(self at:index) value:(aSequenceableCollection at:index).
]
@@ -4673,7 +4674,7 @@
do:[:el1 :el2 | Transcript show:el1; space; showCR:el2]
"
- "Modified: / 30-06-2011 / 12:40:04 / cg"
+ "Modified (Format): / 30-06-2011 / 17:39:59 / cg"
!
with:aSequenceableCollection doWithIndex:aThreeArgBlock
@@ -7897,7 +7898,7 @@
!SequenceableCollection class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.305 2011-06-30 10:41:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.306 2011-06-30 15:40:20 cg Exp $'
! !
SequenceableCollection initialize!