The Trunk: Installer-Core-cmm.371.mcz

Chris Muller uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-cmm.371.mcz

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

Name: Installer-Core-cmm.371
Author: cmm
Time: 7 May 2013, 7:59:48.102 pm
UUID: e4d9f113-0d1d-439b-a64f-6682f58c5837
Ancestors: Installer-Core-cmm.370

- Fix.

=============== Diff against Installer-Core-cmm.370 ===============

Item was changed:
  ----- Method: InstallerMonticello>>project: (in category 'accessing') -----
  project: name
+
- | locs dirs all |
  project := name.
  packages := nil.
+
+ (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ].
+ (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ].
- "mc repositories is a collection of repositories created on the fly. Store a reference to it so we have a stable working set."
- all := mc repositories.
- "Some repositories point to more specific parts within their structures when given a project name. An HTTP repository adds the project name to its path, for instance. A cache repository, despite being directory based, does not."
- locs := all select: [:repo | repo respondsTo: #location:].
- dirs := all select: [:repo | (repo respondsTo: #directory:) and: [(repo respondsTo: #cacheForPackage:) not]].
- locs do: [:repo |
- mc removeRepository: repo.
- mc addRepository: (repo copy location: root , name)].
- dirs do: [:repo |
- mc removeRepository: repo.
- mc addRepository: (repo copy directory: root , FileDirectory slash , name)].
 
  ^self copy.!