74 |
scm_c_register_extension (const char *lib, const char *init, |
scm_c_register_extension (const char *lib, const char *init, |
75 |
void (*func) (void *), void *data) |
void (*func) (void *), void *data) |
76 |
{ |
{ |
77 |
extension_t *ext = scm_must_malloc (sizeof(extension_t), |
extension_t *ext = scm_malloc (sizeof(extension_t)); |
|
"scm_register_extension"); |
|
78 |
if (lib) |
if (lib) |
79 |
ext->lib = scm_must_strdup (lib); |
ext->lib = scm_strdup (lib); |
80 |
else |
else |
81 |
ext->lib = NULL; |
ext->lib = NULL; |
82 |
ext->init = scm_must_strdup (init); |
ext->init = scm_strdup (init); |
83 |
ext->func = func; |
ext->func = func; |
84 |
ext->data = data; |
ext->data = data; |
85 |
|
|