Keeping a Promise

doesNotUndertand: aMessage

"If this is our init message, let it by..."

aMessage selector == #promising:

ifTrue: [^super perform: aMessage selector

withArguments: aMessage arguments].

"Wait until our result is available..."

semaphore wait.

"If our result is a SmallInteger, it has no oop.."

(result isKindOf: SmallInteger)

ifTrue: [result := result asFloat].

"Become the result and do the

deferred message..."

result become: self.

^self perform: aMessage selector

withArguments: aMessage arguments

Previous slide

Next slide

Back to first slide

View graphic version