From 6e0fb684bdc4372344a69e076dbaba053e46040d Mon Sep 17 00:00:00 2001 From: Christian Stimming Date: Mon, 28 Aug 2006 12:34:52 +0000 Subject: [PATCH] Guile path on win32 needs to be separated by ; instead of :. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@14745 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/gnc-test-env | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/gnc-test-env b/src/gnc-test-env index b42e508930..3d92afe827 100755 --- a/src/gnc-test-env +++ b/src/gnc-test-env @@ -61,6 +61,12 @@ exec guile -s $0 "$@" "\\\\" ;; Needs to be quoted twice because of additional shell quoting "/")) +;; The path separator string; only needed for GUILE_LOAD_PATH +(define path-sep-str + (if is-windows? + ";" + ":")) + ;; Adapt the directory separator character in the given PATH and ;; return the result. (define (adapt-dirsep path) @@ -83,10 +89,12 @@ exec guile -s $0 "$@" (string-join gnc-module-dirs ":"))) -(display " GUILE_LOAD_PATH=${GUILE_LOAD_PATH}:") +(display " GUILE_LOAD_PATH=\"${GUILE_LOAD_PATH}") +(display path-sep-str) (display (adapt-dirsep (string-join (append gnc-module-dirs guile-load-dirs) - ":"))) + path-sep-str))) +(display "\"") (display " LD_LIBRARY_PATH=${LD_LIBRARY_PATH}") (display (adapt-dirsep