From 4d1d2103f88b5aec385bb2f5fb3d18cb1688d4ef Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 11 Nov 2021 16:44:44 +0000
Subject: Client: fix error handling.

---
 src/scm/webid-oidc/server/endpoint/client.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/scm/webid-oidc/server/endpoint/client.scm b/src/scm/webid-oidc/server/endpoint/client.scm
index 71779e5..eebc290 100644
--- a/src/scm/webid-oidc/server/endpoint/client.scm
+++ b/src/scm/webid-oidc/server/endpoint/client.scm
@@ -104,9 +104,9 @@
                 (else
                  (scm-error 'wrong-type-arg "make <client-id>"
                             (format #f (G_ "#:~a should be a list")
-                                    what
-                                    '()
-                                    (list wrong)))))))))
+                                    what)
+                            '()
+                            (list values))))))))
      (fix-symbol-list grant-types 'grant-types)
      (fix-symbol-list response-types 'response-types))))
 
-- 
cgit v1.2.3