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

compatiblity with 5.0 and 5.1

Browse Source
This commit is contained in:
Danny Yoo 2011-02-25 15:06:52 -05:00
parent fdab507586
commit c92b6d4c43
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
browser-evaluate.rkt
View File

@ -85,13 +85,20 @@ EOF
(list #"" (get-output-bytes op)))))) (list #"" (get-output-bytes op))))))
(define (ok-response)
(response/full 200 #"Okay"
(current-seconds)
TEXT/HTML-MIME-TYPE
empty
(list #"" #"<html><head></head><body><p>ok</p></body></html>")))
(define (handle-normal-response req) (define (handle-normal-response req)
(channel-put ch (list (extract-binding/single 'r (request-bindings req)) (channel-put ch (list (extract-binding/single 'r (request-bindings req))
(string->number (string->number
(extract-binding/single 't (request-bindings req))))) (extract-binding/single 't (request-bindings req)))))
`(html (body (p "ok")))) (ok-response))
(define (handle-error-response req) (define (handle-error-response req)
@ -99,8 +106,7 @@ EOF
(extract-binding/single 'e (request-bindings req)) (extract-binding/single 'e (request-bindings req))
(string->number (string->number
(extract-binding/single 't (request-bindings req))))) (extract-binding/single 't (request-bindings req)))))
`(html (body (p "ok")))) (ok-response))
(define (make-on-first-load-response) (define (make-on-first-load-response)