--- a/Interval.st Mon Oct 09 17:48:33 2017 +0200
+++ b/Interval.st Mon Oct 09 17:50:30 2017 +0200
@@ -300,10 +300,12 @@
Redefined since the inherited method (SeqColl) accesses the receiver via at:,
which is slow for intervals"
- |elementValue mySize newCollection|
+ |elementValue newCollection
+ mySize "{Class: SmallInteger}"|
elementValue := start.
- newCollection := self species newWithSize:(mySize := self size).
+ mySize := self size.
+ newCollection := self species newWithSize:mySize.
1 to: mySize do:[:i |
newCollection at:i put:(aBlock value:elementValue).
elementValue := elementValue + step.
@@ -315,6 +317,7 @@
"
"Modified: / 04-05-2012 / 13:03:56 / cg"
+ "Modified: / 09-10-2017 / 16:59:10 / stefan"
!
do:aBlock