diff options
Diffstat (limited to 'src/scm')
-rw-r--r-- | src/scm/webid-oidc/access-token.scm | 1 | ||||
-rw-r--r-- | src/scm/webid-oidc/authorization-code.scm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/access-token.scm b/src/scm/webid-oidc/access-token.scm index 6023108..0cc8c27 100644 --- a/src/scm/webid-oidc/access-token.scm +++ b/src/scm/webid-oidc/access-token.scm @@ -183,6 +183,7 @@ (else (scm-error 'wrong-type-arg "the-access-token" "expected a pair of lists" + '() (list x))))))) (define (access-token? x) diff --git a/src/scm/webid-oidc/authorization-code.scm b/src/scm/webid-oidc/authorization-code.scm index 95dcc4a..ff7fe60 100644 --- a/src/scm/webid-oidc/authorization-code.scm +++ b/src/scm/webid-oidc/authorization-code.scm @@ -129,6 +129,7 @@ (else (scm-error 'wrong-type-arg "the-authorization-code" "expected a pair of lists" + '() (list x))))))) (define (authorization-code? x) |