From eec610141b98aa707fe32c57a5c479972406ed23 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Mon, 15 Mar 2021 15:46:17 +0100
Subject: [PATCH] DEBUG guile.cmd, wine-guile.sh: Some Wine help.

Try:

    wine cmd /c guile -c '(display "hello\n")'
    ./check-guile -i ./wine-guile.sh numbers.test

* guile.cmd,
wine-guile.sh: New files.
---
 guile.cmd     | 26 ++++++++++++++++++++++++++
 wine-guile.sh |  2 ++
 2 files changed, 28 insertions(+)
 create mode 100644 guile.cmd
 create mode 100755 wine-guile.sh

diff --git a/guile.cmd b/guile.cmd
new file mode 100644
index 000000000..c16bee76c
--- /dev/null
+++ b/guile.cmd
@@ -0,0 +1,26 @@
+@echo off
+setlocal
+if not exist tmp mkdir tmp
+set LANG=C
+set LC_ALL=C
+set LC_CTYPE=C
+set TMPDIR=tmp
+set dir=.
+set absdir=%~p0
+set PREFIX=%absdir:\=/%
+set GUILE_AUTO_COMPILE=0
+rem set GUILE_LOAD_PATH=%GUILE_LOAD_PATH%;%dir%/share/guile/site/3.0;%dir%/share/guile/3.0
+rem #set GUILE_LOAD_COMPILED_PATH=%GUILE_LOAD_COMPILED_PATH%;%dir%/lib/guile/3.0/site-ccache;%dir%/lib/guile/3.0/ccache
+set GUILE_LOAD_PATH=%GUILE_LOAD_PATH%;%dir%/module
+set GUILE_LOAD_COMPILED_PATH=%GUILE_LOAD_COMPILED_PATH%;%dir%/module
+set HOME=%USERPROFILE%
+
+set LIBRARY_PATH=%LIBRARY_PATH::=;%;
+set LIBRARY_PATH_CROSS_LIB=%LIBRARY_PATH:/lib;=/x86_64-w64-mingw32/lib;%
+
+set CROSS_LIBRARY_PATH=%CROSS_LIBRARY_PATH::=;%;
+set CROSS_LIBRARY_PATH_BIN=%CROSS_LIBRARY_PATH:/lib;=/bin;%
+set WINELOADERNOEXEC=0
+
+set PATH=%~p0/libguile/.libs;%PATH%;%LIBRARY_PATH_CROSS_LIB%;%CROSS_LIBRARY_PATH%;%CROSS_LIBRARY_PATH_BIN%;
+guile.exe %*
diff --git a/wine-guile.sh b/wine-guile.sh
new file mode 100755
index 000000000..60ba312ab
--- /dev/null
+++ b/wine-guile.sh
@@ -0,0 +1,2 @@
+#! /bin/sh
+wine cmd /c guile.cmd "$@"