diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-11 16:51:26 +0000 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-11 16:58:17 +0000 |
| commit | bcdc6f48efd1bc72fd98eeb35687ca1c830d454f (patch) | |
| tree | 3a28841a9f0e6b8356eb0cb942ced5da15fcf8aa | |
| parent | e1f98030067a16599f38ac69747c715bc55a66ce (diff) | |
Client application: fix variable names
| -rw-r--r-- | src/scm/webid-oidc/client/application.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index 863cae9..4667d39 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -364,16 +364,13 @@ (if code ((continuation prompt) state code) (let ((with-unresolved-prompt (shallow-clone state))) - (slot-set! ret 'authorization-prompts + (slot-set! with-unresolved-prompt 'authorization-prompts `(,prompt ,@(authorization-prompts state))) with-unresolved-prompt)))) (iter prompts seed state))))))) (define-class <page> ()) -(define-method (equal? (x <page>) (y <page>)) - (and (equal? (identifier x) (identifier y)))) - (define-class <new-page> (<page>)) (define-class <page-with-uri> (<page>) @@ -619,7 +616,7 @@ #:content-type (response-content-type response) #:content - (or (false-if-exception (bytevector->string response-body)) + (or (false-if-exception (utf8->string response-body)) response-body)) (make <error-page> #:uri (uri new-page) |