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!