view src/guile-test.c @ 3959:6303de54ff1b

qt: add build of devel mingw tools moc, rcc, uic, lrelease for windows * src/qt.mk: add build of moc,release, uic, rcc when ENABLE_DEVEL_TOOL set for cross mingw * src/qt-2-shared-tools-fixes.patch: new file * dist-files.mk: add qt-2-shared-tools-fixes.patch
author John D
date Sun, 07 Jun 2015 22:13:05 -0400
parents 99516e73b368
children
line wrap: on
line source

/*
 * This file is part of MXE.
 * See 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;
}