diff options
-rw-r--r-- | src/scm/webid-oidc/server/endpoint/client.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/server/endpoint/client.scm b/src/scm/webid-oidc/server/endpoint/client.scm index ffa93c3..def13a3 100644 --- a/src/scm/webid-oidc/server/endpoint/client.scm +++ b/src/scm/webid-oidc/server/endpoint/client.scm @@ -137,7 +137,7 @@ (lambda (key=value) (match (map uri-decode (string-split key=value #\=)) ((key value) - `((,key . ,value))) + `((,(string->symbol key) . ,value))) (else '()))) (string-split (uri-query (request-uri request)) #\&))))) (let ((code (assq-ref query-args 'code))) |