From e8637c7443bec7b7120cb186c1dcd7af5d4ee035 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 2 Mar 2019 21:25:11 +0800 Subject: [PATCH] [budget][cash-flow] use srfi-1 functions ... instead of account utility functions which are now deprecated. --- gnucash/report/standard-reports/budget.scm | 2 +- gnucash/report/standard-reports/cash-flow.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gnucash/report/standard-reports/budget.scm b/gnucash/report/standard-reports/budget.scm index a31801a5a2..b3513d149a 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 b8ed255d69..ecb31a3f89 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)))