r21805 - gnucash/branches/2.4/packaging/win32 - Win32: fix more guile load paths

[Geert Janssens]

Author: gjanssens
Date: 2011-12-31 04:08:02 -0500 (Sat, 31 Dec 2011)
New Revision: 21805
Trac: http://svn.gnucash.org/trac/changeset/21805

Modified:
   gnucash/branches/2.4/packaging/win32/gnucash.iss.in
Log:
Win32: fix more guile load paths

Modified: gnucash/branches/2.4/packaging/win32/gnucash.iss.in
===================================================================
--- gnucash/branches/2.4/packaging/win32/gnucash.iss.in	2011-12-30 22:06:12 UTC (rev 21804)
+++ gnucash/branches/2.4/packaging/win32/gnucash.iss.in	2011-12-31 09:08:02 UTC (rev 21805)
@@ -319,7 +319,7 @@
   { Create the guile.cmd file; #10 is the linefeed character and #13 CR }
 
   FileName := appdir + '\bin\guile.cmd' ;
-  FileString := 'set GUILE_LOAD_PATH=' + pkgdatadir + '\guile-modules;' + pkgdatadir + '\scm;' + appdir + '\share\guile\1.6;%GUILE_LOAD_PATH%'#13#10 ;
+  FileString := 'set GUILE_LOAD_PATH=' + pkgdatadir + '\guile-modules;' + pkgdatadir + '\scm;' + appdir + '\share\guile\1.8;%GUILE_LOAD_PATH%'#13#10 ;
   FileString := FileString + 'start guile.exe %*'#13#10 ;
 
   { Save the final file }
@@ -364,7 +364,7 @@
       { Adapt GUILE_LOAD_PATH parameter and prevent cygwin interference in SCHEME_LIBRARY_PATH }
       if (Pos('GUILE_LOAD_PATH', EnvStrList[iLineCounter]) = 1) then
       begin
-        StringChangeEx(EnvStrList[iLineCounter], '{GUILE_LOAD_PATH}', '{GNC_HOME}/share/guile/1.6;{GUILE_LOAD_PATH}', True);
+        StringChangeEx(EnvStrList[iLineCounter], '{GUILE_LOAD_PATH}', '{GNC_HOME}/share/guile/1.8;{GUILE_LOAD_PATH}', True);
 
         EnvStrList[iLineCounter] := EnvStrList[iLineCounter] + #13#10 + '# Clear SCHEME_LIBRARY_PATH to prevent interference from other guile installations (like cygwin)' + #13#10;
         EnvStrList[iLineCounter] := EnvStrList[iLineCounter] + 'SCHEME_LIBRARY_PATH=' + #13#10;