[squeak-dev] Squeak 6.0: Installer-Core-mt.450.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Oct 21 11:26:03 UTC 2022
Marcel Taeumel uploaded a new version of Installer-Core to project Squeak 6.0:
http://source.squeak.org/squeak60/Installer-Core-mt.450.mcz
==================== Summary ====================
Name: Installer-Core-mt.450
Author: mt
Time: 21 October 2022, 1:26:06.215037 pm
UUID: d023a26c-cfb5-0a43-9102-89bbb16f1439
Ancestors: Installer-Core-mt.449
Fixes a bug in new #ensureRecentMetacello that polluted the current change set with the preamble the SAR file.
Backported from Squeak 6.1alpha.
=============== Diff against Installer-Core-mt.449 ===============
Item was changed:
----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') -----
ensureRecentMetacello
"Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md"
| metacello |
((Smalltalk classNamed: #WebClient)
ifNil: [ false ]
ifNotNil: [ :webClient |
[ (webClient httpHead: 'https://github.com') isSuccess ]
on: Error
do: [ false ] ])
ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ].
self isMetacelloInstalled ifFalse: [
| response |
"Download base archive of Metacello."
response := WebClient httpGet: 'https://files.squeak.org/metacello/metacello-squeak60.sar'.
response isSuccess ifFalse: [
self error: ('Could not download Metacello archive: {1}' translated format: {response status})].
"Prepare a clean environment and install it."
Smalltalk globals removeKey: #Metacello ifAbsent: ["Ignore prior attempts."].
+ self new installSAR: 'metacello-squeak60.sar' from: response content asByteArray readStream].
- SARInstaller new fileInFrom: response content asByteArray readStream].
metacello := Smalltalk classNamed: #Metacello.
"Now load latest version of Metacello"
metacello new
baseline: 'Metacello';
repository: 'github://Metacello/metacello:master/repository';
get.
metacello new
baseline: 'Metacello';
repository: 'github://Metacello/metacello:master/repository';
load: #('default' 'Metacello-Help').!
More information about the Squeak-dev
mailing list
|