Fix broken documentation examples
svn: r18569
This commit is contained in:
parent
4795b4ae27
commit
a1156ec3d3
|
@ -15,6 +15,7 @@
|
||||||
(the-eval '(require web-server/http
|
(the-eval '(require web-server/http
|
||||||
net/url
|
net/url
|
||||||
scheme/list
|
scheme/list
|
||||||
|
scheme/promise
|
||||||
web-server/dispatch
|
web-server/dispatch
|
||||||
web-server/dispatch/extend))
|
web-server/dispatch/extend))
|
||||||
the-eval))
|
the-eval))
|
||||||
|
@ -52,7 +53,7 @@ Now when a request is sent to your application, it will be directed to the appro
|
||||||
@interaction[#:eval dispatch-eval
|
@interaction[#:eval dispatch-eval
|
||||||
(define (url->request u)
|
(define (url->request u)
|
||||||
(make-request #"GET" (string->url u) empty
|
(make-request #"GET" (string->url u) empty
|
||||||
empty #f "1.2.3.4" 80 "4.3.2.1"))
|
(delay empty) #f "1.2.3.4" 80 "4.3.2.1"))
|
||||||
(blog-dispatch
|
(blog-dispatch
|
||||||
(url->request "http://www.chrlsnchrg.com"))
|
(url->request "http://www.chrlsnchrg.com"))
|
||||||
(blog-dispatch
|
(blog-dispatch
|
||||||
|
|
Loading…
Reference in New Issue
Block a user