From f4a1b2fdf2dbf1bbb5abd3a96a64fbdba3fcf2d4 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Tue, 27 Aug 2019 21:50:32 +0800 Subject: [PATCH] Revert "[standard-reports] modernise to srfi-9 records" This reverts commit 123033e5ea31beb21dc1e75cb50c9cf5432cc34a. Unfortunately srfi-9 records don't travel well outside modules, so, will fail on master. --- .../standard-reports/standard-reports.scm | 22 ++++++++++++++----- 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/gnucash/report/standard-reports/standard-reports.scm b/gnucash/report/standard-reports/standard-reports.scm index 321f0997d50..235f763c834 100644 --- a/gnucash/report/standard-reports/standard-reports.scm +++ b/gnucash/report/standard-reports/standard-reports.scm @@ -25,7 +25,6 @@ (define-module (gnucash report standard-reports)) -(use-modules (srfi srfi-9)) (use-modules (srfi srfi-13)) (use-modules (gnucash utilities)) (use-modules (gnucash core-utils)) @@ -40,15 +39,26 @@ ;; or without split. If no function is found, then run the 'default' ;; function -(define-record-type :acct-type-info - (make-acct-type-private split non-split) - acct-type-info? - (split get-split set-split) - (non-split get-non-split set-non-split)) +(define acct-type-info (make-record-type "AcctTypeInfo" '(split non-split))) + +(define make-acct-type-private + (record-constructor acct-type-info '(split non-split))) (define (make-acct-type) (make-acct-type-private #f #f)) +(define get-split + (record-accessor acct-type-info 'split)) + +(define set-split + (record-modifier acct-type-info 'split)) + +(define get-non-split + (record-accessor acct-type-info 'non-split)) + +(define set-non-split + (record-modifier acct-type-info 'non-split)) + (define (gnc:register-report-hook acct-type split? create-fcn) (let ((type-info (hash-ref gnc:*register-report-hash* acct-type (make-acct-type)))) (if split?