From d483301708d8b0fcf83ff1fd28e94ab08513f55a Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 11 Nov 2021 16:54:38 +0000
Subject: serialization: fix variable name.

---
 src/scm/webid-oidc/serializable.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/scm/webid-oidc/serializable.scm b/src/scm/webid-oidc/serializable.scm
index b47f7db..78ec6fa 100644
--- a/src/scm/webid-oidc/serializable.scm
+++ b/src/scm/webid-oidc/serializable.scm
@@ -87,7 +87,7 @@
   (init-args-reverse #:init-keyword #:init-args-reverse #:accessor init-args-reverse))
 
 (define-class <parser-reading-list> (<parser-reading-value>)
-  (items-reverse #:init-keyword #:items-reversed #:accessor items-reversed #:init-value '()))
+  (items-reversed #:init-keyword #:items-reversed #:accessor items-reversed #:init-value '()))
 
 (define-class <parser-reading-extended-attribute> (<parser-state>)
   (attribute-name #:init-keyword #:attribute-name #:accessor attribute-name)
@@ -96,7 +96,7 @@
 (define-class <parser-root> (<parser-reading-extended-attribute>))
 
 (define-method (get-value (list <parser-reading-list>))
-  (reverse (items-reverse list)))
+  (reverse (items-reversed list)))
 
 (define-method (get-value (element <parser-reading-element>))
   (let* ((class (init-class element))
-- 
cgit v1.2.3