r14745 - gnucash/trunk/src - Guile path on win32 needs to be separated by ; instead of :.

[Christian Stimming]

Author: cstim
Date: 2006-08-28 08:34:52 -0400 (Mon, 28 Aug 2006)
New Revision: 14745
Trac: http://svn.gnucash.org/trac/changeset/14745

Modified:
   gnucash/trunk/src/gnc-test-env
Log:
Guile path on win32 needs to be separated by ; instead of :.

Modified: gnucash/trunk/src/gnc-test-env
===================================================================
--- gnucash/trunk/src/gnc-test-env	2006-08-28 11:29:22 UTC (rev 14744)
+++ gnucash/trunk/src/gnc-test-env	2006-08-28 12:34:52 UTC (rev 14745)
@@ -61,6 +61,12 @@
       "\\\\" ;; 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 @@
 	  (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