diff options
-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) |