From 46691977ab32cbc0cc7676254441b9d04ae937df Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Sun, 19 Mar 2000 21:37:24 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2090 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/report/balance-and-pnl.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/scm/report/balance-and-pnl.scm b/src/scm/report/balance-and-pnl.scm index cc615072a0..fe267c6b5b 100644 --- a/src/scm/report/balance-and-pnl.scm +++ b/src/scm/report/balance-and-pnl.scm @@ -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