gnucash maint: [budget][cash-flow] use srfi-1 functions

Christopher Lam clam at code.gnucash.org
Sun Mar 3 11:07:36 EST 2019


Updated	 via  https://github.com/Gnucash/gnucash/commit/e8637c74 (commit)
	from  https://github.com/Gnucash/gnucash/commit/47cdcade (commit)



commit e8637c7443bec7b7120cb186c1dcd7af5d4ee035
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Sat Mar 2 21:25:11 2019 +0800

    [budget][cash-flow] use srfi-1 functions
    
    ... instead of account utility functions which are now deprecated.

diff --git a/gnucash/report/standard-reports/budget.scm b/gnucash/report/standard-reports/budget.scm
index a31801a5a..b3513d149 100644
--- a/gnucash/report/standard-reports/budget.scm
+++ b/gnucash/report/standard-reports/budget.scm
@@ -817,7 +817,7 @@
         (let ((sub-accounts (gnc:acccounts-get-all-subaccounts accounts)))
           (for-each
             (lambda (sub-account)
-              (if (not (account-in-list? sub-account accounts))
+              (if (not (member sub-account accounts))
                   (set! accounts (cons sub-account accounts))))
             sub-accounts)))
 
diff --git a/gnucash/report/standard-reports/cash-flow.scm b/gnucash/report/standard-reports/cash-flow.scm
index b8ed255d6..ecb31a3f8 100644
--- a/gnucash/report/standard-reports/cash-flow.scm
+++ b/gnucash/report/standard-reports/cash-flow.scm
@@ -172,7 +172,7 @@
         (let ((sub-accounts (gnc:acccounts-get-all-subaccounts accounts)))
           (for-each
            (lambda (sub-account)
-             (if (not (account-in-list? sub-account accounts))
+             (if (not (member sub-account accounts))
                  (set! accounts (cons sub-account accounts))))
            sub-accounts)))
 



Summary of changes:
 gnucash/report/standard-reports/budget.scm    | 2 +-
 gnucash/report/standard-reports/cash-flow.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)



More information about the gnucash-changes mailing list