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

bytes

Browse Source 
svn: r13394
This commit is contained in:
Jay McCarthy 2009-02-03 20:21:05 +00:00
parent 6d5eaaf581
commit 304b163623
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/web-server/private/request-test.ss
View File

@ -24,12 +24,12 @@
(define (get-bindings post-data) (define (get-bindings post-data)
(define-values (conn headers) (make-mock-connection&headers 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))) (lambda (f s) f)))
(define (get-post-data/raw post-data) (define (get-post-data/raw post-data)
(define-values (conn headers) (make-mock-connection&headers 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))) (lambda (f s) s)))