The Trunk: System-edc.261.mcz

Edgar J. De Cleene uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-edc.261.mcz

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

Name: System-edc.261
Author: edc
Time: 24 February 2010, 7:50:16.018 am
UUID: dc9c47c5-5f4d-4c54-948f-d6c590fca1eb
Ancestors: System-ul.260

Fix CodeLoader installSourceFiles

Now you could do this example

|loader |
        loader _ CodeLoader new.
        loader baseURL: 'http://www.squeaksource.com/Ladrillos/'.
        loader loadSourceFiles: #('Scamper-edc.13.mcz' );installSourceFiles.

=============== Diff against System-ul.260 ===============

Item was changed:
  ----- Method: CodeLoader>>installSourceFiles (in category 'installing') -----
  installSourceFiles
  "Install the previously loaded source files"
+ | aSuffix pos packName |
- | aSuffix |
  sourceFiles == nil
  ifTrue: [^ self].
  sourceFiles
+ do: [:req |
+ aSuffix := (req url findTokens: '.') last.
- 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]].
- [ 'mcz'] -> [MczInstaller installStream: req contentStream].
- ['sar'] ->[ SARInstaller new fileInFrom: req contentStream]}
- otherwise: [self installSourceFile: req contentStream]].
  sourceFiles := nil!