--- a/Interval.st Tue Sep 08 17:35:04 2009 +0200
+++ b/Interval.st Tue Sep 08 17:36:02 2009 +0200
@@ -545,6 +545,7 @@
"return a new interval containing all elements of the receiver,
which are also contained in the argument collection"
+ "/ could be much more intelligent here...
aCollection class == Interval ifTrue:[
aCollection step = step ifTrue:[
step = 1 ifTrue:[
@@ -565,6 +566,7 @@
(1 to:10) intersect:(11 to:20)
(1 to:10) intersect:(10 to:20)
(4 to:20) intersect:(1 to:10)
+ (4 to:20) intersect:(1 to:10 by:2)
"
! !
@@ -683,5 +685,5 @@
!Interval class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.50 2009-09-08 15:35:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.51 2009-09-08 15:36:02 cg Exp $'
! !