The Trunk: XML-Parser-nice.28.mcz

Nicolas Cellier uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-nice.28.mcz

==================== Summary ====================

Name: XML-Parser-nice.28
Author: nice
Time: 23 March 2010, 10:38:53.196 pm
UUID: cd271fe0-0383-4952-b32b-a4cc74fe84c3
Ancestors: XML-Parser-nice.27

Fix underscores

=============== Diff against XML-Parser-nice.27 ===============

Item was changed:
  ----- Method: XMLTokenizer>>match:into: (in category 'streaming') -----
  match: subCollection into: resultStream
  "Set the access position of the receiver to be past the next occurrence of the subCollection. Answer whether subCollection is found.  No wildcards, and case does matter."
 
  | pattern startMatch |
+ pattern := ReadStream on: subCollection.
+ startMatch := nil.
- pattern _ ReadStream on: subCollection.
- startMatch _ nil.
  [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: [
  self position: startMatch.
+ startMatch := nil]]].
- startMatch _ nil]]].
  ^ true
 
  !