1 files changed, 13 insertions, 0 deletions
diff --git a/src/guile-test.c b/src/guile-test.c
index fbfc577..77e95ae 100644
--- a/src/guile-test.c
+++ b/src/guile-test.c
@@ -3,8 +3,17 @@
  * See index.html for further information.
  */
 
+#include <stdlib.h>
+#include <stdio.h>
 #include <libguile.h>
 
+# ifdef __STRICT_ANSI__
+int putenv (char *);
+# endif
+
+#define xstr(s) str(s)
+#define str(s) #s
+
 static void inner_main(void *data, int argc, char *argv[])
 {
     (void)data;
@@ -15,6 +24,10 @@ static void inner_main(void *data, int argc, char *argv[])
 
 int main(int argc, char *argv[])
 {
+    char guile_load_path[40];
+    snprintf(guile_load_path, sizeof guile_load_path, \
+        "GUILE_LOAD_PATH=..\\share\\guile\\%s", xstr(GUILE_MAJOR_MINOR));
+    putenv(guile_load_path);
     scm_boot_guile(argc, argv, inner_main, NULL);
     return 0;
 }