Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

request-with-uri should reparse request params

Browse source
This commit is contained in:
Alex Shinn 2015-02-11 20:19:49 +09:00
parent ed458469a7
commit 7d897bbf15
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/net/servlet.scm
View file

@ -87,8 +87,11 @@
(request-status r))) (request-status r)))
(define (request-with-uri request uri) (define (request-with-uri request uri)
(let ((request2 (copy-request request))) (let ((request2 (copy-request request))
(request-uri-set! request2 (string->path-uri 'http uri)) (uri (string->path-uri 'http uri)))
(request-uri-set! request2 uri)
;; NOTE: this looses form parameters
(request-params-set! request2 (uri-query->alist (or (uri-query uri) "")))
request2)) request2))
(define (request-param request name . o) (define (request-param request name . o)