/[guile]/guile/guile-core/libguile/extensions.c
ViewVC logotype

Diff of /guile/guile-core/libguile/extensions.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by ossau, Tue Nov 13 23:44:29 2001 UTC revision 1.7 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 74  void Line 74  void
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    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26