diff options
author | cvs2svn <admin@example.com> | 2002-08-04 00:18:34 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 2002-08-04 00:18:34 +0000 |
commit | 2f4c89c4f475d3b2c718cbd4332c650214488ff9 (patch) | |
tree | 5abd57b1ace53b0c6970da9395f15d80d5f79430 /doc/example-smob/myguile.c | |
parent | c7743d027a335eae585335b959e483c5a6c38d36 (diff) | |
download | guile-2f4c89c4f475d3b2c718cbd4332c650214488ff9.tar.gz |
This commit was manufactured by cvs2svn to create tagafter-hanwen-gc-change
'after-hanwen-gc-change'.
Diffstat (limited to 'doc/example-smob/myguile.c')
-rw-r--r-- | doc/example-smob/myguile.c | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/doc/example-smob/myguile.c b/doc/example-smob/myguile.c deleted file mode 100644 index 95bff27fd..000000000 --- a/doc/example-smob/myguile.c +++ /dev/null @@ -1,37 +0,0 @@ -/* myguile.c - * - * Copyright (C) 1998 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - */ - -#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 */ -} |