diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-07 09:44:01 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-07-07 09:44:01 +0000 |
commit | 23a621512f6a034a8624f589a3862dbddcec6b9d (patch) | |
tree | efb8b5a0f046402b74a5851fa1a902c40bc91561 /libguile/dynl.c | |
parent | 8ac40ce8871ccfa5e8c0a4fe3a1d55dfb69f839c (diff) | |
download | guile-23a621512f6a034a8624f589a3862dbddcec6b9d.tar.gz |
Greg's smob patch
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r-- | libguile/dynl.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index a08bcc572..79345de8e 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -332,12 +332,6 @@ print_dynl_obj (exp, port, pstate) return 1; } -static scm_smobfuns dynl_obj_smob = { - mark_dynl_obj, - free_dynl_obj, - print_dynl_obj -}; - static SCM kw_global; SCM_SYMBOL (sym_global, "-global"); @@ -496,7 +490,9 @@ scm_dynamic_args_call (func, dobj, args) void scm_init_dynamic_linking () { - scm_tc16_dynamic_obj = scm_newsmob (&dynl_obj_smob); + scm_tc16_dynamic_obj = scm_make_smob_type_mfpe ("dynamic-object", sizeof (struct dynl_obj), + mark_dynl_obj, free_dynl_obj, + print_dynl_obj, NULL); sysdep_dynl_init (); #include "dynl.x" kw_global = scm_make_keyword_from_dash_symbol (sym_global); |