The Trunk: SMBase-nice.112.mcz

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

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

Name: SMBase-nice.112
Author: nice
Time: 21 August 2010, 11:45:23.486 am
UUID: 228f91c5-bea3-4455-ac5b-7ab4b275ecc4
Ancestors: SMBase-ar.111

Fix for http://bugs.squeak.org/view.php?id=7262
UUID class>>fromString36: fails when reading a small value, e.g. nilUUID
#size fails when sent to SmallIntegers.

=============== Diff against SMBase-ar.111 ===============

Item was changed:
  ----- Method: UUID class>>fromString36: (in category '*smbase-macsafe') -----
  fromString36: aString
  "Decode the UUID from a base 36 string using 0-9 and lowercase a-z.
  This is the shortest representation still being able to work as
  filenames etc since it does not depend on case nor characters
  that might cause problems."
 
  | object num |
  object := self nilUUID.
  num := Integer readFrom: aString asUppercase readStream base: 36.
+ 1 to: 16 do: [:i | object at: i put: (num digitAt: i)].
- 16 to: 1 by: -1 do: [:i |
- num size < i
- ifTrue: [object at: i put: 0]
- ifFalse: [object at: i put: (num digitAt: i)]].
  ^object!