The contract on sequencer:make requires arguments that conform to
dispatcher/c, which #f does not. svn: r17958
This commit is contained in:
parent
0bda2f0e18
commit
8bc420da4c
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user