From 94cf52515067f981dba5827de7db459bca7a1357 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Wed, 12 Jul 2000 07:14:13 +0000 Subject: [PATCH] Fix scm searching. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2566 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 4 ++++ src/scm/bootstrap.scm.in | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b1a7f6ad5b..c63c7baefd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-07-12 Dave Peticolas + + * src/scm/bootstrap.scm.in: add HOME/.gnucash to scm search path. + 2000-07-04 Dave Peticolas * src/scm/bootstrap.scm.in: bump up the stack limit diff --git a/src/scm/bootstrap.scm.in b/src/scm/bootstrap.scm.in index 39ecd7a768..77d3947e4e 100644 --- a/src/scm/bootstrap.scm.in +++ b/src/scm/bootstrap.scm.in @@ -161,12 +161,12 @@ string and 'directories' must be a list of strings." (gnc:debug "gnc:find-in-directories looking for " file " in " directories) - + (do ((rest directories (cdr rest)) (finished? #f) (result #f)) ((or (null? rest) finished?) result) - + (let ((file-name (string-append (car rest) "/" file))) (gnc:debug " checking for " file-name) (if (access? file-name F_OK) @@ -211,7 +211,8 @@ file in all of the directories specified by gnc:*load-path*." ((symbol? item) (case item ((default) - (list + (list + (string-append (getenv "HOME") "/.gnucash") (string-append (getenv "HOME") "/.gnucash/scm") (string-append gnc:_share-dir-default_ "/scm"))) ((current)