[no subject]

[Ludovic Courtès]

branch: master
commit 5ddd4b97a50a0faaf70509b37d8e104f4504be09
Author: Ludovic Courtès <address@hidden>
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 #\&))
+        '())))
 
 
 ;;;