A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/Kernel-fbs.694.mcz ==================== Summary ==================== Name: Kernel-fbs.694 Author: fbs Time: 7 June 2012, 6:57:11.913 pm UUID: 0965fd0f-210b-41d8-9904-7efa44ed6f17 Ancestors: Kernel-nice.693 * Use the canonical Array empty rather than #(); * the instvar's initialised to an Array anyway so #ifNotNil: is a no-op. =============== Diff against Kernel-nice.693 =============== Item was added: + ----- Method: Object class>>subclass: (in category 'instance creation') ----- + subclass: aByteSymbol + ^ self + subclass: aByteSymbol + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: InPackage value.! Item was changed: ----- Method: Promise>>initialize (in category 'initialize') ----- initialize isResolved := false. + resolvers := Array empty. - resolvers := #(). mutex := Mutex new.! Item was changed: ----- Method: Promise>>resolveWith: (in category 'resolving') ----- resolveWith: arg "Resolve this promise" mutex critical: [ isResolved ifTrue: [self error: 'Promise was already resolved']. value := arg. isResolved := true. + resolvers do: [:r | self evaluateResolver: r]. - resolvers ifNotNil: [resolvers do: [:r | self evaluateResolver: r]]. ].! |
Oh sigh. Ignore this; Object class >> #subclass: is part of a strictly
local experiment (for easy scripting). frank On 7 June 2012 20:55, <[hidden email]> wrote: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-fbs.694.mcz > > ==================== Summary ==================== > > Name: Kernel-fbs.694 > Author: fbs > Time: 7 June 2012, 6:57:11.913 pm > UUID: 0965fd0f-210b-41d8-9904-7efa44ed6f17 > Ancestors: Kernel-nice.693 > > * Use the canonical Array empty rather than #(); > * the instvar's initialised to an Array anyway so #ifNotNil: is a no-op. > > =============== Diff against Kernel-nice.693 =============== > > Item was added: > + ----- Method: Object class>>subclass: (in category 'instance creation') ----- > + subclass: aByteSymbol > + ^ self > + subclass: aByteSymbol > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: InPackage value.! > > Item was changed: > ----- Method: Promise>>initialize (in category 'initialize') ----- > initialize > isResolved := false. > + resolvers := Array empty. > - resolvers := #(). > mutex := Mutex new.! > > Item was changed: > ----- Method: Promise>>resolveWith: (in category 'resolving') ----- > resolveWith: arg > "Resolve this promise" > mutex critical: [ > isResolved ifTrue: [self error: 'Promise was already resolved']. > value := arg. > isResolved := true. > + resolvers do: [:r | self evaluateResolver: r]. > - resolvers ifNotNil: [resolvers do: [:r | self evaluateResolver: r]]. > ].! > > |
Free forum by Nabble | Edit this page |