new package: guile

1 files changed, 18 insertions, 0 deletions

diff --git a/src/guile-test.c b/src/guile-test.c
new file mode 100644
index 0000000..d1bcd58
--- /dev/null
+++ b/src/guile-test.c
@@ -0,0 +1,18 @@
+/* This file is part of mingw-cross-env.       */
+/* See doc/index.html for further information. */
+
+#include <libguile.h>
+
+static void inner_main(void *data, int argc, char *argv[])
+{
+    (void)data;
+    (void)argc;
+    (void)argv;
+    scm_c_eval_string("(display \"Hello World!\\n\")");
+}
+
+int main(int argc, char *argv[])
+{
+    scm_boot_guile(argc, argv, inner_main, NULL);
+    return 0;
+}