diff options
-rw-r--r-- | libguile/procs.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/procs.c b/libguile/procs.c index 8230e07ae..b3a0d3215 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -45,15 +45,19 @@ SCM scm_c_make_subr (const char *name, long type, SCM (*fcn) ()) { register SCM z; + SCM sname; SCM *meta_info; meta_info = scm_gc_malloc (2 * sizeof (*meta_info), "subr meta-info"); - meta_info[0] = scm_from_locale_symbol (name); + sname = scm_from_locale_symbol (name); + meta_info[0] = sname; meta_info[1] = SCM_EOL; /* properties */ z = scm_double_cell ((scm_t_bits) type, (scm_t_bits) fcn, 0 /* generic */, (scm_t_bits) meta_info); + scm_remember_upto_here_1 (sname); + return z; } |