From 8bc420da4c90ba5bf5ccd6eabc4dca29fd3724f4 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Wed, 3 Feb 2010 16:39:18 +0000 Subject: [PATCH 1/2] The contract on sequencer:make requires arguments that conform to dispatcher/c, which #f does not. svn: r17958 --- collects/handin-server/run-servlet.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/handin-server/run-servlet.ss b/collects/handin-server/run-servlet.ss index 7ac0ef6731..7783154711 100644 --- a/collects/handin-server/run-servlet.ss +++ b/collects/handin-server/run-servlet.ss @@ -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) From 823bbd18c9cf5342a923bda50487f136cf290130 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 3 Feb 2010 22:49:12 +0000 Subject: [PATCH 2/2] opaque iworld structure svn: r17962 --- collects/2htdp/private/universe.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/2htdp/private/universe.ss b/collects/2htdp/private/universe.ss index 01ddded200..eaab74f268 100644 --- a/collects/2htdp/private/universe.ss +++ b/collects/2htdp/private/universe.ss @@ -210,7 +210,7 @@ iworld3) ;; --- the server representation of a world --- -(define-struct iworld (in out name info) #:transparent) +(define-struct iworld (in out name info) #; #:transparent) ;; World = (make-iworld IPort OPort Symbol [Listof Sexp]) (define (iw* n) (make-iworld (current-input-port) (current-output-port) n '()))