From 75e96e2ee8e9a6dc50aa87708c867b705669cffb Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Thu, 30 Mar 2000 23:29:51 +0000 Subject: [PATCH] *** empty log message *** git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2141 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/main.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/src/scm/main.scm b/src/scm/main.scm index dbbd536466..01d53813bb 100644 --- a/src/scm/main.scm +++ b/src/scm/main.scm @@ -20,15 +20,17 @@ (gnc:depend "report.scm") (gnc:depend "report/report-list.scm") - (gnc:config-var-value-set! gnc:*load-path* #f - (cons (string-append gnc:_share-dir-default_ - "/scm/qif-import") - (gnc:config-var-value-get gnc:*load-path*))) - - (gnc:config-var-value-set! gnc:*load-path* #f - (cons (string-append gnc:_share-dir-default_ - "/scm/printing") - (gnc:config-var-value-get gnc:*load-path*))) + (gnc:config-var-value-set! + gnc:*load-path* #f + (let loop ((load-path (gnc:config-var-value-get gnc:*load-path*))) + (if (null? load-path) '() + (cons + (string-append (car load-path) "/printing") + (cons + (string-append (car load-path) "/qif-import") + (cons + (car load-path) + (loop (cdr load-path)))))))) (gnc:depend "qif-import.scm") (gnc:depend "print-check.scm")