IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2108 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-23 22:34:49 +00:00
parent 2537fff208
commit 081473f408
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/scm/report/average-balance.scm
View File

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