A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.306.mcz
==================== Summary ====================
Name: Installer-Core-kph.306 Author: kph Time: 23 February 2009, 6:15:26 am UUID: b1d6c5a8-0ee5-4a98-a9fc-f24e57c158f8 Ancestors: Installer-Core-kph.305
fix to bootstrap, dont try and unload things.
=============== Diff against Installer-Core-kph.305 ===============
Item was changed: ----- Method: InstallerUrl>>bootstrap (in category 'accessing') ----- bootstrap
" (Installer url: 'http://www.squeaksource.com/Sake/Sake-Core-kph.47.mcz') bootstrap. "
| pkg wc splitPos repo getFileName getSource fileName |
splitPos := url lastIndexOf: $/.
pkg := url copyFrom: splitPos + 1 to: url size. repo := url copyFrom: 1 to: splitPos.
wc := Smalltalk at: #MCWorkingCopy ifAbsent: [ nil ]. wc ifNotNil: [ (wc allManagers select: [:each | each packageName = pkg ]) do: [ :ea | ea unregister ] ].
- "uninstall previous version" - SystemOrganization removeSystemCategory: pkg asSymbol. - getFileName := [ :pkgName | pkgName , ((HTTPSocket httpGet: repo) upToAll: pkgName; upTo: $") ]. getSource := [ :pkgUrl | ((ZipArchive new readFrom: (HTTPSocket httpGet: pkgUrl)) memberNamed: 'snapshot/source.st') contents ].
fileName := getFileName value: pkg.
[ (getSource value: (repo,fileName)) readStream fileInAnnouncing: 'Booting ' , fileName.
] on: Warning do: [ :ex | ex resume: true ].!
packages@lists.squeakfoundation.org