[budget][cash-flow] use srfi-1 functions

... instead of account utility functions which are now deprecated.
This commit is contained in:
Christopher Lam 2019-03-02 21:25:11 +08:00
parent 47cdcaded3
commit e8637c7443
2 changed files with 2 additions and 2 deletions

View File

@ -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)))

View File

@ -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)))