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
This commit is contained in:
Dave Peticolas 2000-12-20 11:00:10 +00:00
parent 07ccf2a716
commit bbe2d40431

View File

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