diff options
Diffstat (limited to 'neocities')
| -rw-r--r-- | neocities/requests.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/neocities/requests.scm b/neocities/requests.scm index d0270c2..20d328d 100644 --- a/neocities/requests.scm +++ b/neocities/requests.scm @@ -51,13 +51,13 @@ (map (lambda (x) (let ((key (car x)) (value (cdr x))) - (if (= 1 (length value)) - (string-append (uri-encode key) "=" (uri-encode (car value))) + (if (list? value) (string-join (map (lambda (y) (string-append (uri-encode key) "=" (uri-encode y))) value) - "&")))) + "&") + (string-append (uri-encode key) "=" (uri-encode value))))) querystring) "&")) |