[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Thu, 1 Mar 2018 11:31:44 -0500 (EST) |
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 #\&))
+ '())))
;;;
- master updated (f5a15ca -> aa4c778), Ludovic Courtès, 2018/03/01
- [no subject],
Ludovic Courtès <=
- [no subject], Ludovic Courtès, 2018/03/01
- [no subject], Ludovic Courtès, 2018/03/01
- [no subject], Ludovic Courtès, 2018/03/01
- [no subject], Ludovic Courtès, 2018/03/01
- [no subject], Ludovic Courtès, 2018/03/01
- [no subject], Ludovic Courtès, 2018/03/01
- [no subject], Ludovic Courtès, 2018/03/01