The Trunk: System-cwp.507.mcz

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!