From a6ac9b748c78e8aeff62f99b2e55771c08ac3c2f Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Sat, 11 Jul 2020 23:16:54 +0800
Subject: [PATCH] [html-document] use srfi-9 records for <html-object>

---
 gnucash/report/html-document.scm | 30 +++++++++++-------------------
 1 file changed, 11 insertions(+), 19 deletions(-)

diff --git a/gnucash/report/html-document.scm b/gnucash/report/html-document.scm
index 36f82cde9e..47f544f315 100644
--- a/gnucash/report/html-document.scm
+++ b/gnucash/report/html-document.scm
@@ -265,14 +265,18 @@
 ;;  want.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define <html-object>
-  (make-record-type "<html-object>"
-                    '(renderer data)))
-(define gnc:html-object?
-  (record-predicate <html-object>))
+(define-record-type <html-object>
+  (make-html-object-internal renderer data)
+  html-object?
+  (renderer html-object-renderer html-object-set-renderer!)
+  (data html-object-data html-object-set-data!))
 
-(define gnc:make-html-object-internal
-  (record-constructor <html-object>))
+(define gnc:html-object? html-object?)
+(define gnc:make-html-object-internal make-html-object-internal)
+(define gnc:html-object-renderer html-object-renderer)
+(define gnc:html-object-set-renderer! html-object-set-renderer!)
+(define gnc:html-object-data html-object-data)
+(define gnc:html-object-set-data! html-object-set-data!)
 
 (define (gnc:make-html-object obj)
   (cond
@@ -320,18 +324,6 @@
      (lambda (obj doc)
        (gnc:html-document-render-data doc obj)) obj))))
 
-(define gnc:html-object-renderer
-  (record-accessor <html-object> 'renderer))
-
-(define gnc:html-object-set-renderer!
-  (record-modifier <html-object> 'renderer))
-
-(define gnc:html-object-data
-  (record-accessor <html-object> 'data))
-
-(define gnc:html-object-set-data!
-  (record-modifier <html-object> 'data))
-
 (define (gnc:html-object-render obj doc)
   (if (gnc:html-object? obj)
       ((gnc:html-object-renderer obj) (gnc:html-object-data obj) doc)