diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-10-15 21:48:51 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-10-15 21:48:51 +0000 |
commit | 90b714763e2f6ec59267ed5bf16356f8b7df58f7 (patch) | |
tree | 85bc34390592bccfa11b7623dd7ff68f15cf5ad7 /doc/example-smob/myguile.c | |
parent | 305f02b1303af61c156f2922f1019ac1dfba76c2 (diff) | |
download | guile-90b714763e2f6ec59267ed5bf16356f8b7df58f7.tar.gz |
Created this directory for the Guile 1.3 release. Thanks to Jay
Glascoe for suggesting that we provide a complete, buildable
example!
* ChangeLog, Makefile, README, image-type.c, image-type.h,
myguile: New files.
Diffstat (limited to 'doc/example-smob/myguile.c')
-rw-r--r-- | doc/example-smob/myguile.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/example-smob/myguile.c b/doc/example-smob/myguile.c new file mode 100644 index 000000000..7234b9846 --- /dev/null +++ b/doc/example-smob/myguile.c @@ -0,0 +1,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 */ +} |