[no subject]

[Ludovic Courtès]

branch: master
commit dbea9790d30ff1c2e80585e9441d45ed0b740e30
Author: Ludovic Courtès <address@hidden>
Date:   Thu Mar 1 15:37:29 2018 +0100

    http: Fix interpretation of non-numerical parameters.
    
    Fixes a regression introduced in
    593cb7be108ed97bca5371aad2e53fa8ce4817ba.
    
    * src/cuirass/http.scm (request-parameters): Fix fallback case in
    'match' form.  Previously it would return a procedure in this case, as
    returned by (const param), leading to a failure down the road in
    'sqlite-bind-arguments' as could be seen by running tests/http.scm.
---
 src/cuirass/http.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index b8738cf..59e4ce1 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -84,10 +84,11 @@
                 (match (string-split param #\=)
                   ((key param)
                    (let ((key-symbol (string->symbol key)))
-                     (list key-symbol ((match key-symbol
-                                        ('id string->number)
-                                        ('nr string->number)
-                                        (_ const)) param))))))
+                     (list key-symbol
+                           (match key-symbol
+                             ('id (string->number param))
+                             ('nr (string->number param))
+                             (_   param)))))))
               (string-split query #\&)))))