suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

The contract on sequencer:make requires arguments that conform to

Browse Source 
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
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/handin-server/run-servlet.ss
View File

@ -69,7 +69,8 @@
(define ach (make-async-channel)) (define ach (make-async-channel))
;; wrap the dispatcher so we can post on the waiting semaphore ;; wrap the dispatcher so we can post on the waiting semaphore
(define (wrap-sequence . ds) (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) (lambda (conn req)
(d conn req) (d conn req)
;; (cond [(hash-ref port->sema (connection-o-port conn) #f) ;; (cond [(hash-ref port->sema (connection-o-port conn) #f)