The Trunk: System-ul.262.mcz

Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.262.mcz

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

Name: System-ul.262
Author: ul
Time: 24 February 2010, 4:48:14.266 pm
UUID: 5dc45cd0-9f69-1c4b-8f9a-969f5535e70a
Ancestors: System-edc.261

- don't use #lastPositionOf:
- minor cleanup

=============== Diff against System-edc.261 ===============

Item was changed:
  ----- Method: CodeLoader>>installSourceFiles (in category 'installing') -----
  installSourceFiles
  "Install the previously loaded source files"
+
+ sourceFiles ifNil: [ ^self ].
+ sourceFiles do: [ :request |
+ | aSuffix |
+ aSuffix := request url copyAfterLast: $..
+ aSuffix
+ caseOf: {
+ [ 'mcz' ] -> [ self tryVersion: (request url copyAfterLast: $/) ].
+ [ 'sar' ] -> [ SARInstaller new fileInFrom: request contentStream ]}
+ otherwise: [ self installSourceFile: request contentStream ] ].
- | aSuffix pos packName |
- sourceFiles == nil
- ifTrue: [^ self].
- sourceFiles
- do: [:req |
- aSuffix := (req url findTokens: '.') last.
- aSuffix caseOf: {
- ['mcz'] -> [pos := req url lastPositionOf: $/.
- packName := req url copyFrom: pos + 1 to: req url size.
- self tryVersion: packName].
- ['sar'] -> [SARInstaller new fileInFrom: req contentStream]}
- otherwise: [self installSourceFile: req contentStream]].
  sourceFiles := nil!