From bbe2d4043199b6ddb7d9ad9fc288e316032142ac Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Wed, 20 Dec 2000 11:00:10 +0000 Subject: [PATCH] Use gnc:group-get-account-list instead of building it manually. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3326 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/report/average-balance.scm | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/src/scm/report/average-balance.scm b/src/scm/report/average-balance.scm index 0006f54f51..028e284c5e 100644 --- a/src/scm/report/average-balance.scm +++ b/src/scm/report/average-balance.scm @@ -88,16 +88,7 @@ (cond ((not (null? current-accounts)) current-accounts) (else - (let ((acctlist '())) - (gnc:for-loop - (lambda(x) - (set! acctlist - (append! - acctlist - (list (gnc:group-get-account - (gnc:get-current-group) x))))) - 0 num-accounts 1) - acctlist))))) + (gnc:group-get-account-list (gnc:get-current-group)))))) #f #t)) (gnc:register-runavg-option