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

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

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

Name: XML-Parser-nice.22
Author: nice
Time: 27 December 2009, 1:01:16 am
UUID: d0589584-803d-4fc0-b9e7-add2d816a761
Ancestors: XML-Parser-nice.21

Cosmetic: move or remove a few temps inside closures

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

Item was changed:
  ----- Method: XMLTokenizer>>streamEncoding: (in category 'streaming') -----
  streamEncoding: encodingString
 
- | converterClass |
  Smalltalk at: #TextConverter ifPresent: [:tc |
  (stream respondsTo: #converter:) ifTrue: [
+ | converterClass |
  converterClass := tc defaultConverterClassForEncoding: encodingString asLowercase.
  converterClass ifNotNil: [stream converter: converterClass new]]]!

Item was changed:
  ----- Method: XMLNode>>firstTagNamed:with: (in category 'searching') -----
  firstTagNamed: aSymbol with: aBlock
  "Return the first encountered node with the specified tag that
  allows the block to evaluate to true. Pass the message on"
 
- | answer |
-
  self elementsDo: [:node |
+ | answer |
  (answer := node firstTagNamed: aSymbol with: aBlock) ifNotNil: [^answer]].
  ^nil!

Item was changed:
  ----- Method: XMLNode>>firstTagNamed: (in category 'searching') -----
  firstTagNamed: aSymbol
  "Return the first encountered node with the specified tag. Pass the message on"
 
+ self elementsDo: [:node |
+ | answer |
+ (answer := node firstTagNamed: aSymbol) ifNotNil: [^answer]].
- | answer |
-
- self elementsDo: [:node | (answer := node firstTagNamed: aSymbol) ifNotNil: [^answer]].
  ^nil!