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

Fix bug.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4003 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-04-21 21:35:44 +00:00
parent 274409e58a
commit 38531ab697
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/scm/options.scm
View File

@ -506,7 +506,7 @@
getter getter
(lambda (account-list) (lambda (account-list)
(if (not account-list) (set! account-list (default-getter))) (if (not account-list) (set! account-list (default-getter)))
(set! account-list (filter (lambda (x) (string? x)) account-list)) (set! account-list (filter (lambda (x) x) account-list))
(let* ((result (validator account-list)) (let* ((result (validator account-list))
(valid (car result)) (valid (car result))
(value (cadr result))) (value (cadr result)))