.
original commit: 8b1cc3b9662f9bef64a3dd58fa169b5d59dda913
This commit is contained in:
parent
3d45da9d12
commit
f64fc2b393
|
@ -1126,7 +1126,7 @@ WARNING: printf is rebound in the body of the unit to always
|
|||
(let* ([data-hd (queue-first data)]
|
||||
[reader-hd (queue-first readers)]
|
||||
[reader-succeed (car reader-hd)]
|
||||
[reader-fail (cdr reader-hd)])
|
||||
[reader-fail (cadr reader-hd)])
|
||||
(object-wait-multiple
|
||||
#f
|
||||
(make-wrapped-waitable
|
||||
|
|
Loading…
Reference in New Issue
Block a user