Ignore missing accounts in gnc:filter-accountlist-type to avoid an assert.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23549 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Mike Alexander 2013-12-12 05:18:09 +00:00
parent 894630e1d4
commit 85c7631406

View File

@ -73,7 +73,7 @@
;; one of the type identifiers in typelist.
(define (gnc:filter-accountlist-type typelist accounts)
(filter (lambda (a)
(member (xaccAccountGetType a) typelist))
(and (not (null? a)) (member (xaccAccountGetType a) typelist)))
accounts))
;; Decompose a given list of accounts 'accounts' into an alist