Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.507.mcz
==================== Summary ====================
Name: System-cwp.507 Author: cwp Time: 1 January 2013, 6:50:59.79 pm UUID: cba427fe-eae7-47a5-9178-8a188aec1afe Ancestors: System-fbs.506
Environments bootstrap - stage 1
=============== Diff against System-fbs.506 ===============
Item was added: + ----- Method: ImageSegment>>scanFrom:environment: (in category 'fileIn/Out') ----- + scanFrom: aStream environment: anEnvironment + ^ self scanFrom: aStream!
Item was added: + ----- Method: InternalTranslator>>scanFrom:environment: (in category 'fileIn/fileOut') ----- + scanFrom: aStream environment: anEnvironment + "Read a definition of dictionary. + Make sure current locale corresponds my locale id" + | aString newTranslations assoc currentPlatform | + newTranslations := Dictionary new. + currentPlatform := Locale currentPlatform. + [Locale + currentPlatform: (Locale localeID: id). + [aString := aStream nextChunk withSqueakLineEndings. + aString size > 0] whileTrue: + [assoc := Compiler evaluate: aString environment: anEnvironment. + assoc value = '' + ifTrue: [self class registerPhrase: assoc key] + ifFalse: [newTranslations add: assoc]]] + ensure: [Locale currentPlatform: currentPlatform]. + self mergeTranslations: newTranslations!
Item was added: + ----- Method: NaturalLanguageTranslator>>scanFrom:environment: (in category 'fileIn/fileOut') ----- + scanFrom: aStream environment: anEnvironment + "Read a definition of dictionary. + Make sure current locale corresponds my locale id" + | newTranslations currentPlatform | + newTranslations := Dictionary new. + currentPlatform := Locale currentPlatform. + [| aString assoc | + Locale currentPlatform: (Locale localeID: id). + [aString := aStream nextChunk withSqueakLineEndings. + aString size > 0] whileTrue: + [assoc := Compiler evaluate: aString environment: anEnvironment. + assoc value = '' + ifTrue: [self class registerPhrase: assoc key] + ifFalse: [newTranslations add: assoc]]] + ensure: [Locale currentPlatform: currentPlatform]. + self mergeTranslations: newTranslations!
Item was added: + ----- Method: ObjectScanner>>scanFrom:environment: (in category 'scanning') ----- + scanFrom: aByteStream environment: anEnvironment + "This should probably be reimplemented using an environment + for compilation. For now, don't change anything" + ^ self scanFrom: aByteStream!
Item was added: + ----- Method: PseudoClass>>literalScannedAs:environment:notifying: (in category 'printing') ----- + literalScannedAs: scannedLiteral environment: anEnvironment notifying: requestor + ^ scannedLiteral!
Item was added: + ----- Method: SmartRefStream class>>scanFrom:environment: (in category 'i/o') ----- + scanFrom: aByteStream environment: anEnvironment + ^ self scanFrom: aByteStream!
Item was added: + ----- Method: SmartRefStream>>scanFrom:environment: (in category 'read write') ----- + scanFrom: aByteStream environment: anEnvironment + ^ self scanFrom: aByteStream!
Item was added: + ----- Method: SystemDictionary>>bindingOf:ifAbsent: (in category 'accessing') ----- + bindingOf: varName ifAbsent: aBlock + "SystemDictionary includes Symbols only" + ^super bindingOf: varName asSymbol ifAbsent: aBlock!
Item was added: + ----- Method: SystemDictionary>>undeclared (in category 'accessing') ----- + undeclared + ^ self at: #Undeclared!
squeak-dev@lists.squeakfoundation.org