fix bug in gnc:find-localized-file

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6372 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-12-12 08:38:35 +00:00
parent 5e5d981a21
commit ccbdc243b9

View File

@ -313,9 +313,9 @@ string and 'directories' must be a list of strings."
(if (null? dirs)
#f
(or (gnc:find-file file (map (lambda (prefix)
(build-path (list (car dirs) prefix)))
(build-path (car dirs) prefix))
prefixes))
(gnc:find-file file (car dirs))
(gnc:find-file file (list (car dirs)))
(loop prefixes (cdr dirs))))))
(define (gnc:print-unstable-message)