123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- #ifdef HAVE_CONFIG_H
- # include <config.h>
- #endif
- #include <libguile.h>
- SCM init2_count;
- void libtest_extensions_init2 (void);
- void libtest_extensions_init (void);
- void
- libtest_extensions_init2 (void)
- {
- scm_variable_set_x (init2_count,
- scm_from_int (scm_to_int (scm_variable_ref (init2_count)) + 1));
- }
- void
- libtest_extensions_init (void)
- {
- scm_c_define ("init2-count", scm_from_int (0));
- init2_count = scm_permanent_object (scm_c_lookup ("init2-count"));
- scm_c_register_extension ("libtest-extensions", "libtest_extensions_init2",
- (scm_t_extension_init_func)libtest_extensions_init2, NULL);
- }
|