Fix scm searching.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2566 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -1,3 +1,7 @@
+2000-07-12  Dave Peticolas  <dave@krondo.com>
+
+	* src/scm/bootstrap.scm.in: add HOME/.gnucash to scm search path.
+
 2000-07-04  Dave Peticolas  <dave@krondo.com>
 
 	* src/scm/bootstrap.scm.in: bump up the stack limit

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)