Nicolas Cellier uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-nice.90.mcz==================== Summary ====================
Name: SMBase-nice.90
Author: nice
Time: 20 October 2009, 12:18:30 pm
UUID: 566eca7e-a7a2-ab41-aae1-0f45ec77319e
Ancestors: SMBase-nice.89
use #fasterKeys
=============== Diff against SMBase-nice.89 ===============
Item was changed:
----- Method: SMInstallationRegistry>>installedPackages (in category 'queries') -----
installedPackages
"Answer all packages that we know are installed.
Lazily initialize. The Dictionary contains the installed packages
using their UUIDs as keys and the version string as the value."
| result p |
result := OrderedCollection new.
installedPackages ifNil: [^#()]
+ ifNotNil: [installedPackages fasterKeys
- ifNotNil: [installedPackages keys
do: [:k |
p := map object: k.
p ifNotNil: [result add: p]]].
^result!