summaryrefslogtreecommitdiff
path: root/doc/example-smob/myguile.c
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 */
}