typo in comment

This commit is contained in:
Matthew Flatt 2021-04-27 13:12:05 -06:00
parent 0cdede88c3
commit 613e142447

View File

@ -1114,7 +1114,7 @@ TO DO:
(set-mzssl-in-progress-sema! mzssl #f))) (set-mzssl-in-progress-sema! mzssl #f)))
(define (out-ready-evt mzssl) (define (out-ready-evt mzssl)
;; Similar to `out-ready-evt`, we may need a kind of ;; Similar to `in-ready-evt`, we may need a kind of
;; progress evt to wait on: ;; progress evt to wait on:
(choice-evt (mzssl-o mzssl) (choice-evt (mzssl-o mzssl)
(or (mzssl-out-progress-sema mzssl) (or (mzssl-out-progress-sema mzssl)