branch: master commit 5ddd4b97a50a0faaf70509b37d8e104f4504be09 Author: Ludovic Courtès <l...@gnu.org> Date: Thu Mar 1 15:40:19 2018 +0100
http: 'request-parameters' always returns a list. * src/cuirass/http.scm (request-parameters): Return the empty list when QUERY is #f. --- src/cuirass/http.scm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 59e4ce1..0548184 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -79,17 +79,18 @@ '((parameter value) ...)." (let* ((uri (request-uri request)) (query (uri-query uri))) - (and query - (map (lambda (param) - (match (string-split param #\=) - ((key param) - (let ((key-symbol (string->symbol key))) - (list key-symbol - (match key-symbol - ('id (string->number param)) - ('nr (string->number param)) - (_ param))))))) - (string-split query #\&))))) + (if query + (map (lambda (param) + (match (string-split param #\=) + ((key param) + (let ((key-symbol (string->symbol key))) + (list key-symbol + (match key-symbol + ('id (string->number param)) + ('nr (string->number param)) + (_ param))))))) + (string-split query #\&)) + '()))) ;;;