From c92b6d4c43c057df1a8688ad21b5caf3bfb08bae Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 25 Feb 2011 15:06:52 -0500 Subject: [PATCH] compatiblity with 5.0 and 5.1 --- browser-evaluate.rkt | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/browser-evaluate.rkt b/browser-evaluate.rkt index f25a767..51f9858 100644 --- a/browser-evaluate.rkt +++ b/browser-evaluate.rkt @@ -85,13 +85,20 @@ EOF (list #"" (get-output-bytes op)))))) +(define (ok-response) + (response/full 200 #"Okay" + (current-seconds) + TEXT/HTML-MIME-TYPE + empty + (list #"" #"

ok

"))) + (define (handle-normal-response req) (channel-put ch (list (extract-binding/single 'r (request-bindings req)) (string->number (extract-binding/single 't (request-bindings req))))) - `(html (body (p "ok")))) + (ok-response)) (define (handle-error-response req) @@ -99,8 +106,7 @@ EOF (extract-binding/single 'e (request-bindings req)) (string->number (extract-binding/single 't (request-bindings req))))) - `(html (body (p "ok")))) - + (ok-response)) (define (make-on-first-load-response)