--- a/ArrayedCollection.st Tue Apr 28 14:41:21 2020 +0200
+++ b/ArrayedCollection.st Tue Apr 28 16:21:34 2020 +0200
@@ -119,18 +119,17 @@
!
with:element
- "return a new SequenceableCollection with one element:anObject"
-
- |newCollection|
+ "return a new instance with one element:anObject"
- newCollection := self new:1.
- newCollection at:1 put:element.
- ^newCollection
+ ^ (self new:1)
+ at:1 put:element;
+ yourself.
"
- OrderedCollection with:1
- SortedCollection with:99
+ Array with:1
"
+
+ "Modified: / 28-04-2020 / 15:46:35 / Stefan Vogel"
!
with:first with:second