mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
90b714763e
Glascoe for suggesting that we provide a complete, buildable example! * ChangeLog, Makefile, README, image-type.c, image-type.h, myguile: New files.
17 lines
321 B
C
17 lines
321 B
C
#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 */
|
|
}
|