Fixing a few errors post testing

This commit is contained in:
Jay McCarthy 2010-12-07 14:13:46 -07:00
parent d28dc2ae41
commit 8570b48cec
5 changed files with 7 additions and 2 deletions

View File

@ -1,5 +1,6 @@
#lang racket/base #lang racket/base
(require racket/contract (require racket/contract
web-server/servlet/servlet-structs
web-server/http) web-server/http)
(define k-url? (define k-url?

View File

@ -2,6 +2,7 @@
(require racket/match (require racket/match
racket/contract) racket/contract)
(require "manager.rkt" (require "manager.rkt"
web-server/http
web-server/servlet/servlet-structs) web-server/servlet/servlet-structs)
(provide/contract (provide/contract
[create-LRU-manager [create-LRU-manager

View File

@ -1,7 +1,8 @@
#lang racket/base #lang racket/base
(require racket/contract) (require racket/contract)
(require "manager.rkt") (require "manager.rkt")
(require web-server/servlet/servlet-structs) (require web-server/servlet/servlet-structs
web-server/http)
(provide/contract (provide/contract
[create-none-manager [create-none-manager
(-> (->

View File

@ -3,6 +3,7 @@
racket/contract) racket/contract)
(require "manager.rkt") (require "manager.rkt")
(require web-server/private/timer (require web-server/private/timer
web-server/http
web-server/servlet/servlet-structs) web-server/servlet/servlet-structs)
(provide/contract (provide/contract
[create-timeout-manager [create-timeout-manager

View File

@ -14,7 +14,7 @@ provides an indirection from application-specific response formats and the inter
HTTP response format, @racket[response]. HTTP response format, @racket[response].
@deftogether[[ @deftogether[[
@defthing[(can-be-response? [x any/c]) @defproc[(can-be-response? [x any/c])
boolean?] boolean?]
@defproc[(any->response [x any/c]) @defproc[(any->response [x any/c])
(or/c false/c response?)] (or/c false/c response?)]
@ -24,6 +24,7 @@ HTTP response format, @racket[response].
@racket[any->response] coerces any value into a response or returns @racket[#f] if coercion is not possible. @racket[any->response] coerces any value into a response or returns @racket[#f] if coercion is not possible.
@racket[any->response] guarantees that any @racket[response?] input must always be returned exactly (i.e. @racket[eq?].) @racket[any->response] guarantees that any @racket[response?] input must always be returned exactly (i.e. @racket[eq?].)
The default always returns @racket[#f], signifying that no coercion is possible.
@racket[can-be-response?] returns @racket[#t] if @racket[x] is a response or can be turned into a response by calling @racket[can-be-response?] returns @racket[#t] if @racket[x] is a response or can be turned into a response by calling
@racket[any->response]. @racket[any->response].