From ca67854900dbf0f7200e75c73f32900a8fe0b63e Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 23 Sep 2021 17:10:08 +0200
Subject: JWK: allow a string for #:crv

---
 src/scm/webid-oidc/jwk.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/scm/webid-oidc/jwk.scm b/src/scm/webid-oidc/jwk.scm
index 9dae649..04e50f2 100644
--- a/src/scm/webid-oidc/jwk.scm
+++ b/src/scm/webid-oidc/jwk.scm
@@ -172,10 +172,14 @@
 
 (define-method (initialize (key <ec-point>) initargs)
   (next-method)
+  (when (string? (ec-crv key))
+    (set! (ec-crv key) (string->symbol (ec-crv key))))
   (check-key key))
 
 (define-method (initialize (key <ec-scalar>) initargs)
   (next-method)
+  (when (string? (ec-crv key))
+    (set! (ec-crv key) (string->symbol (ec-crv key))))
   (let-keywords
    initargs #t
    ((alg #f))
-- 
cgit v1.2.3