A few more typos

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7073 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins
2002-07-02 22:04:22 +00:00
parent 9e5a9336db
commit bbe97eea70
2 changed files with 2 additions and 2 deletions

View File

@@ -55,7 +55,7 @@
(define (find-first-payable group num-accounts index)
(if (>= index num-accounts)
#f
(let* ((this-account (gnc:group-get-account (group index)))
(let* ((this-account (gnc:group-get-account group index))
(account-type (gw:enum-<gnc:AccountType>-val->sym
(gnc:account-get-type this-account) #f)))
(if (eq? account-type 'payable)

View File

@@ -58,7 +58,7 @@
(define (find-first-receivable group num-accounts index)
(if (>= index num-accounts)
#f
(let* ((this-account (gnc:group-get-account (group index)))
(let* ((this-account (gnc:group-get-account group index))
(account-type (gw:enum-<gnc:AccountType>-val->sym
(gnc:account-get-type this-account) #f)))
(if (eq? account-type 'receivable)