From 081473f4089edfdcd3c27e33f3b88f4be59c1f87 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Thu, 23 Mar 2000 22:34:49 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2108 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/report/average-balance.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/scm/report/average-balance.scm b/src/scm/report/average-balance.scm index 1af5612c14..19abab4d62 100644 --- a/src/scm/report/average-balance.scm +++ b/src/scm/report/average-balance.scm @@ -274,15 +274,15 @@ ;; Pull a scheme list of splits from a C array (define (gnc:convert-split-list split-array) - (let ((slist '())) - (let loop ((index 0) - (split (gnc:ith-split split-array 0))) - (if (pointer-token-null? split) - (reverse slist) - (begin - (set! slist (cons split slist)) - (loop (+ index 1) - (gnc:ith-split split-array (+ index 1)))))))) + (let loop ((index 0) + (split (gnc:ith-split split-array 0)) + (slist '())) + (if (pointer-token-null? split) + (reverse slist) + (begin + (loop (+ index 1) + (gnc:ith-split split-array (+ index 1)) + (cons split slist)))))) ;; Pull a scheme list of accounts (including subaccounts) from group grp (define (gnc:group-get-account-list grp)