author | Claus Gittinger <cg@exept.de> |
Sun, 08 Sep 2019 16:47:12 +0200 | |
changeset 24766 | 9e09c9c8cb95 |
parent 24765 | e91461190d47 |
child 24767 | beb2adab20bb |
--- a/PositionableStream.st Sun Sep 08 16:36:39 2019 +0200 +++ b/PositionableStream.st Sun Sep 08 16:47:12 2019 +0200 @@ -323,7 +323,7 @@ [pattern atEnd] whileFalse: [ self atEnd ifTrue: [^ false]. (self next) = (pattern next) - ifTrue: [pattern position = 1 ifTrue: [startMatch := self position]] + ifTrue: [pattern position == 1 ifTrue: [startMatch := self position]] ifFalse: [ pattern position: 0. startMatch ifNotNil: [