diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-23 17:10:08 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-23 17:11:06 +0200 |
| commit | ca67854900dbf0f7200e75c73f32900a8fe0b63e (patch) | |
| tree | 733e1d9a2357fc96106fe938b33eefb67b3844a2 | |
| parent | 555e59deba33284067298ce6130c379c75e3d2a3 (diff) | |
JWK: allow a string for #:crv
| -rw-r--r-- | src/scm/webid-oidc/jwk.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |