From bcdc6f48efd1bc72fd98eeb35687ca1c830d454f Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 11 Nov 2021 16:51:26 +0000
Subject: Client application: fix variable names

---
 src/scm/webid-oidc/client/application.scm | 7 ++-----
 1 file 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)
-- 
cgit v1.2.3