blob: 7234b9846a00cf75e4212ae97a8951ecaa85ca0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#include <libguile.h>
#include "image-type.h"
static void
inner_main (void *closure, int argc, char **argv)
{
/* module initializations would go here */
init_image_type();
scm_shell (argc, argv);
}
int
main (int argc, char **argv)
{
scm_boot_guile (argc, argv, inner_main, 0);
return 0; /* never reached */
}
|