author | Claus Gittinger <cg@exept.de> |
Thu, 11 Oct 2018 18:02:49 +0200 | |
changeset 4756 | a11c5fef5ba8 |
parent 4755 | fbe7d2fe05a0 |
child 4757 | 0c9a9ca3f1cb |
RunArray.st | file | annotate | diff | comparison | revisions |
--- a/RunArray.st Wed Oct 10 20:40:27 2018 +0200 +++ b/RunArray.st Thu Oct 11 18:02:49 2018 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " This class is not covered by or part of the ST/X licence. @@ -663,6 +661,8 @@ |otherContents idx1 idx2 runCount1 runValue1 runCount2 runValue2| + aCollection size == self size ifFalse:[^ false]. + aCollection class ~~ self class ifTrue:[ idx1 := 1. aCollection isSequenceable ifTrue:[