The Trunk: XML-Parser-cbc.41.mcz

David T. Lewis uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-cbc.41.mcz

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

Name: XML-Parser-cbc.41
Author: cbc
Time: 6 February 2017, 9:55:05.728517 am
UUID: b80148cc-7082-b549-afaf-d53bcdc98930
Ancestors: XML-Parser-monty.40

Added missing #applyLanguageInformation: to String and ByteString (and gutted versions of #applyLanguageInfomation: to same locations, forwarding on to correctly spelled variants, as implied in version .40 previosly).

=============== Diff against XML-Parser-monty.40 ===============

Item was added:
+ ----- Method: ByteString>>applyLanguageInfomation: (in category '*xml-parser') -----
+ applyLanguageInfomation: languageEnvironment
+ "Fixed spelling"
+ ^self applyLanguageInformation: languageEnvironment!

Item was added:
+ ----- Method: ByteString>>applyLanguageInformation: (in category '*xml-parser') -----
+ applyLanguageInformation: languageEnvironment
+ !

Item was changed:
  ----- Method: String>>applyLanguageInfomation: (in category '*xml-parser') -----
  applyLanguageInfomation: languageEnvironment
+ "Fixed spelling"
+ ^self applyLanguageInformation: languageEnvironment!
- "this is here for backwards compatibility but now just forwards to the
- correctly-spelled version defined directly on String and ByteString"
- self applyLanguageInformation: languageEnvironment!

Item was added:
+ ----- Method: String>>applyLanguageInformation: (in category '*xml-parser') -----
+ applyLanguageInformation: languageEnvironment
+
+ | leadingChar |
+ leadingChar := languageEnvironment leadingChar.
+ self withIndexDo: [:each :idx |
+ each asciiValue > 255
+ ifTrue: [self at: idx put: (Character leadingChar: leadingChar code: each asUnicode)]]!