original commit: 8b1cc3b9662f9bef64a3dd58fa169b5d59dda913
This commit is contained in:
Robby Findler 2004-05-01 15:47:20 +00:00
parent 3d45da9d12
commit f64fc2b393

View File

@ -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