diff options
-rw-r--r-- | src/scm/webid-oidc/authorization-code.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/authorization-code.scm b/src/scm/webid-oidc/authorization-code.scm index 93db73c..ebe97c4 100644 --- a/src/scm/webid-oidc/authorization-code.scm +++ b/src/scm/webid-oidc/authorization-code.scm @@ -39,7 +39,7 @@ (define-public (authorization-code-payload? x) (false-if-exception - (and (the-authorization-code-apayload x) #t))) + (and (the-authorization-code-payload x) #t))) (define-public (the-authorization-code x) (with-exception-handler @@ -131,7 +131,7 @@ (- exp current-time)) (with-exception-handler (lambda (error) - (raise-jti-found (dpop-proof-jti decoded) error)) + (raise-jti-found (authorization-code-jti code) error)) (lambda () (error "the jti-check function returned #f")))) code))))) |