From 304b1636234e8b9e8a382d9147b543b80daeef17 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 3 Feb 2009 20:21:05 +0000 Subject: [PATCH] bytes svn: r13394 --- collects/tests/web-server/private/request-test.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/web-server/private/request-test.ss b/collects/tests/web-server/private/request-test.ss index d348ceeccb..6dfced3bfd 100644 --- a/collects/tests/web-server/private/request-test.ss +++ b/collects/tests/web-server/private/request-test.ss @@ -24,12 +24,12 @@ (define (get-bindings post-data) (define-values (conn headers) (make-mock-connection&headers post-data)) - (call-with-values (lambda () (read-bindings&post-data/raw conn 'post #f headers)) + (call-with-values (lambda () (read-bindings&post-data/raw conn #"POST" #f headers)) (lambda (f s) f))) (define (get-post-data/raw post-data) (define-values (conn headers) (make-mock-connection&headers post-data)) - (call-with-values (lambda () (read-bindings&post-data/raw conn 'post #f headers)) + (call-with-values (lambda () (read-bindings&post-data/raw conn #"POST" #f headers)) (lambda (f s) s)))