mxe/src/guile-test.c

19 lines
393 B
C
Raw Normal View History

2012-03-28 14:46:58 +01:00
/* This file is part of MXE. */
2010-04-10 07:27:23 +01:00
/* 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;
}