From ccbdc243b972ea9c0adde1712bc38c21a74efdae Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Wed, 12 Dec 2001 08:38:35 +0000 Subject: [PATCH] fix bug in gnc:find-localized-file git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6372 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/scm/main.scm b/src/scm/main.scm index dfb7e809bb..6cc21bb82d 100644 --- a/src/scm/main.scm +++ b/src/scm/main.scm @@ -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)