IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-22 08:57:17 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fix scm searching.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2566 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-07-12 07:14:13 +00:00
parent d13fa1a7cb
commit 94cf525150
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -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

7
src/scm/bootstrap.scm.in
View File

@ -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)