blob: b9bc6099ccc41ed9781be8b04e4b973e362fb7ad (
plain)
1
2
3
4
5
6
7
8
9
10
|
(define-module (server util)
:use-module (util)
:use-module (srfi srfi-1))
(define-public (parse-query query)
(when query
(fold (lambda (str list)
(let* (((k v) (string-split str #\=)))
(cons* (-> k string->symbol symbol->keyword) v list)))
'() (string-split query #\&))))
|