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? (with-handlers ([exn:fail?
(lambda (err) (lambda (err)
(new-resolver 'broken err))]) (new-resolver 'broken err))])
(define result (call-with-values
(apply on-fulfilled vals)) (lambda ()
(new-resolver 'fulfilled result)) (apply on-fulfilled vals))
(lambda result
(new-resolver 'fulfilled result))))
(new-resolver 'fulfilled #f)) ; or void...? (new-resolver 'fulfilled #f)) ; or void...?
(when on-finally (when on-finally
(on-finally)) (on-finally))

Loading…
Cancel
Save