package guile: fix test program

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;
 }

src/guile.mk

@@ -35,5 +35,6 @@ define $(PKG)_BUILD
     '$(TARGET)-gcc' \
         -W -Wall -Werror -ansi -pedantic \
         '$(2).c' -o '$(PREFIX)/$(TARGET)/bin/test-guile.exe' \
-        `'$(TARGET)-pkg-config' guile-1.8 --cflags --libs`
+        `'$(TARGET)-pkg-config' guile-1.8 --cflags --libs` \
+        -DGUILE_MAJOR_MINOR=$(call SHORT_PKG_VERSION,$(PKG))
 endef