*** empty log message ***

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2090 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-19 21:37:24 +00:00
parent 8bc80497e1
commit 46691977ab

View File

@ -30,11 +30,11 @@
balance-temp))
(define (gnc:group-get-balance-until group to-tp)
(sum (map (lambda (x) (gnc:account-get-balance-until x to-tp)) group)))
(apply + (map (lambda (x) (gnc:account-get-balance-until x to-tp)) group)))
(define (gnc:group-get-balance-interval group from-tp to-tp)
(sum (map (lambda (x)
(gnc:account-get-balance-until x from-tp to-tp)) group)))
(apply + (map (lambda (x)
(gnc:account-get-balance-until x from-tp to-tp)) group)))
;; Just a private scope.
(let