IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2141 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-30 23:29:51 +00:00
parent 53b1e83885
commit 75e96e2ee8
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/scm/main.scm
View File

@ -20,15 +20,17 @@
(gnc:depend "report.scm") (gnc:depend "report.scm")
(gnc:depend "report/report-list.scm") (gnc:depend "report/report-list.scm")
(gnc:config-var-value-set! gnc:*load-path* #f (gnc:config-var-value-set!
(cons (string-append gnc:_share-dir-default_ gnc:*load-path* #f
"/scm/qif-import") (let loop ((load-path (gnc:config-var-value-get gnc:*load-path*)))
(gnc:config-var-value-get gnc:*load-path*))) (if (null? load-path) '()
(cons
(gnc:config-var-value-set! gnc:*load-path* #f (string-append (car load-path) "/printing")
(cons (string-append gnc:_share-dir-default_ (cons
"/scm/printing") (string-append (car load-path) "/qif-import")
(gnc:config-var-value-get gnc:*load-path*))) (cons
(car load-path)
(loop (cdr load-path))))))))
(gnc:depend "qif-import.scm") (gnc:depend "qif-import.scm")
(gnc:depend "print-check.scm") (gnc:depend "print-check.scm")