From 7d897bbf1534203bc66b5a3b364b5866dc6c2a7c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 11 Feb 2015 20:19:49 +0900 Subject: [PATCH] request-with-uri should reparse request params --- lib/chibi/net/servlet.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/chibi/net/servlet.scm b/lib/chibi/net/servlet.scm index 365d2405..fee5f8bc 100644 --- a/lib/chibi/net/servlet.scm +++ b/lib/chibi/net/servlet.scm @@ -87,8 +87,11 @@ (request-status r))) (define (request-with-uri request uri) - (let ((request2 (copy-request request))) - (request-uri-set! request2 (string->path-uri 'http uri)) + (let ((request2 (copy-request request)) + (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)) (define (request-param request name . o)