Browse Source

Provide all values returned from continuation to new-resolver

e-like
Christopher Lemmer Webber 8 years ago
parent
commit
1ef02d99ed
No known key found for this signature in database
GPG Key ID: 4BC025925FF8F4D3
  1. 8
      goblins/actors.rkt

8
goblins/actors.rkt

@ -144,9 +144,11 @@ to us."
(with-handlers ([exn:fail?
(lambda (err)
(new-resolver 'broken err))])
(define result
(apply on-fulfilled vals))
(new-resolver 'fulfilled result))
(call-with-values
(lambda ()
(apply on-fulfilled vals))
(lambda result
(new-resolver 'fulfilled result))))
(new-resolver 'fulfilled #f)) ; or void...?
(when on-finally
(on-finally))

Loading…
Cancel
Save