From 77b2d3f44596f8e6e1922fdf9e5a67b079cf0dd4 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Sat, 15 Apr 2000 06:09:03 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2186 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/report-utilities.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/src/scm/report-utilities.scm b/src/scm/report-utilities.scm index 7bd6e0c8ac..9cc45256d5 100644 --- a/src/scm/report-utilities.scm +++ b/src/scm/report-utilities.scm @@ -109,19 +109,21 @@ (slist '())) (if (pointer-token-null? split) (reverse slist) - (loop (+ index 1) + (loop (+ index 1) (gnc:ith-split split-array (+ index 1)) (cons split slist))))) ;; pull a scheme list of splits from an account (define (gnc:account-get-split-list account) (let ((num-splits (gnc:account-get-split-count account))) - (let loop ((index 0)) + (let loop ((index 0) + (split (gnc:account-get-split account 0)) + (slist '())) (if (= index num-splits) - '() - (cons - (gnc:account-get-split account index) - (loop (+ index 1))))))) + (reverse slist) + (loop (+ index 1) + (gnc:account-get-split account (+ index 1)) + (cons split slist)))))) ;; Pull a scheme list of accounts (including subaccounts) from group grp (define (gnc:group-get-account-list grp)