The contract on sequencer:make requires arguments that conform to

dispatcher/c, which #f does not.

svn: r17958
This commit is contained in:
Stevie Strickland 2010-02-03 16:39:18 +00:00
parent 0bda2f0e18
commit 8bc420da4c

View File

@ -69,7 +69,8 @@
(define ach (make-async-channel))
;; wrap the dispatcher so we can post on the waiting semaphore
(define (wrap-sequence . ds)
(let ([d (apply sequencer:make ds)])
(let* ([ds (filter values ds)] ;; drop #f when log-file is #f
[d (apply sequencer:make ds)])
(lambda (conn req)
(d conn req)
;; (cond [(hash-ref port->sema (connection-o-port conn) #f)