mirror of https://git.wownero.com/dsc/mxe.git
19 lines
393 B
C
19 lines
393 B
C
/* 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;
|
|
}
|