--- a/Collection.st Sat Mar 25 03:05:53 1995 +0100
+++ b/Collection.st Sat Mar 25 22:53:57 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.28 1995-03-25 01:21:59 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.29 1995-03-25 21:53:57 claus Exp $
'!
!Collection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.28 1995-03-25 01:21:59 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.29 1995-03-25 21:53:57 claus Exp $
"
!
@@ -537,7 +537,7 @@
This method fails if neither the receiver nor aCollection is
a sequenceable collection (i.e. implements numeric key access)."
- |index "{ Class: SmallInteger }" |
+ |index "{ Class: SmallInteger }"|
index := 1.
aCollection isSequenceable ifFalse:[
@@ -548,7 +548,7 @@
aTwoArgBlock value:(self at:index) value:element.
index := index + 1
]
- ] ifFalse:[
+ ] ifTrue:[
self do:[:element |
aTwoArgBlock value:element value:(aCollection at:index).
index := index + 1
@@ -561,6 +561,9 @@
]
(1 to:3) with:#(one two three) asSet do:[:num :sym |
Transcript showCr:(num->sym)
+ ].
+ (1 to:3) asSet with:#(one two three) do:[:num :sym |
+ Transcript showCr:(num->sym)
]
"
!