The Trunk: Collections-eem.755.mcz

Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.755.mcz

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

Name: Collections-eem.755
Author: eem
Time: 25 May 2017, 3:30:29.925042 pm
UUID: b20639f6-1b01-45b5-8311-6abe8fad12c7
Ancestors: Collections-nice.754

Fix withoutTrailingDigits for e.g. 'Lucida Grande 15' withoutTrailingDigits.  Harvested from Terf.

=============== Diff against Collections-nice.754 ===============

Item was changed:
  ----- Method: String>>withoutTrailingDigits (in category 'converting') -----
  withoutTrailingDigits
  "Answer the portion of the receiver that precedes any trailing series of digits and blanks.  If the receiver consists entirely of digits and blanks, return an empty string"
+ | i |
+ i := self size.
+ [i > 0] whileTrue: [
+ ((self at: i) isDigit or: [ (self at: i) = $ ]) ifFalse: [
+ ^ self copyFrom: 1 to: i
+ ].
+ i := i - 1.
+ ].
+ ^ ''
+
- | firstDigit |
- firstDigit := (self findFirst: [:m | m isDigit or: [m = $ ]]).
- ^ firstDigit > 0
- ifTrue:
- [self copyFrom: 1 to: firstDigit-1]
- ifFalse:
- [self]
 
  "
  'Whoopie234' withoutTrailingDigits
+ 'Lucida Grande 15' withoutTrailingDigits
  ' 4321 BlastOff!!' withoutLeadingDigits
  'wimpy' withoutLeadingDigits
  '  89Ten ' withoutLeadingDigits
  '78 92' withoutLeadingDigits
  "
  !