The Inbox: PromisesLocal-rww.27.mcz

A new version of PromisesLocal was added to project The Inbox:
http://source.squeak.org/inbox/PromisesLocal-rww.27.mcz

==================== Summary ====================

Name: PromisesLocal-rww.27
Author: rww
Time: 4 October 2020, 1:47:26.100611 pm
UUID: 030d5bc0-a354-4b22-b576-9b47e589c410
Ancestors: PromisesLocal-rww.26

explicitly take protocol from trunk Promise

=============== Diff against PromisesLocal-rww.23 ===============

Item was added:
+ ----- Method: BrokenPromise>>promise (in category 'as yet unclassified') -----
+ promise
+
+ self shouldNotImplement.!

Item was added:
+ ----- Method: BrokenPromise>>promise: (in category 'as yet unclassified') -----
+ promise: aPromise
+
+ self shouldNotImplement.!

Item was changed:
  ----- Method: Promise>>>> (in category 'monad') -----
  >> resolvedBlock
  "Like >>=, but discards the result of the promise."
+ ^ self then: [:v | resolvedBlock value]  !
- ^ self then: [:v | resolvedBlock value]!

Item was changed:
  ----- Method: Promise>>>>= (in category 'monad') -----
  >>= resolvedBlock
  "Alias for `then:` allowing convenient chaining."
+ ^ self then: resolvedBlock  !
- ^ self then: resolvedBlock!

Item was added:
+ ----- Method: Promise>>evaluateRejecter: (in category 'private') -----
+ evaluateRejecter: rejecterBlock
+
+ !

Item was added:
+ ----- Method: Promise>>evaluateResolver: (in category 'private') -----
+ evaluateResolver: resolverBlock
+
+ !

Item was added:
+ ----- Method: Promise>>initialize (in category 'initialize') -----
+ initialize
+
+ !

Item was added:
+ ----- Method: Promise>>initializeWithIfRejected: (in category 'initialize') -----
+ initializeWithIfRejected: aBlock
+
+ !

Item was added:
+ ----- Method: Promise>>initializeWithResolvedValue: (in category 'initialize') -----
+ initializeWithResolvedValue: anObject
+
+ !

Item was added:
+ ----- Method: Promise>>whenRejected: (in category 'resolving') -----
+ whenRejected: aBlock
+
+ ^ super whenRejected: aBlock!

Item was added:
+ ----- Method: Promise>>whenResolved: (in category 'resolving') -----
+ whenResolved: aBlock
+
+ ^ super whenResolved: aBlock!