Error during serialisation of JWK if the config contains x5c

This should return JSON string representation of JWK but got error

(import (rnrs)
        (rfc jwk)
        (srfi :19)
        (sagittarius crypto keys)
        (sagittarius crypto signatures)
        (sagittarius crypto x509))

(define subject-dn (x509-name '(C "NL")
                              '(ST "Zuid-Holland")
                              '(OU "Sagittarius Scheme")
                              '(CN "Takashi Kato")
                              '(E "ktakashi@ymail.com")))
(define now (current-time))
(define one-year (make-time time-duration 0 (* 3600 24 365)))
(define key-pair (generate-key-pair *key:ecdsa*))
(define template
  (x509-certificate-template-builder
   (issuer-dn subject-dn)
   (subject-dn subject-dn)
   (serial-number 1000)
   (not-before (time-utc->date now))
   (not-after (time-utc->date (add-duration now one-year)))
   (public-key (key-pair-public key-pair))))

(define cert (sign-x509-certificate-template
              template *signature-algorithm:ecdsa-sha256*
              (key-pair-private key-pair)))

(jwk->json-string
 (key->jwk (key-pair-public key-pair)
           (jwk-config-builder
            (x5c (list cert)))))

‌

Comments (1)