diff options
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 03e27b621..83c268479 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -59,7 +59,8 @@ /* #define GSUBR_TEST */ -SCM scm_sym_name; +SCM_GLOBAL_SYMBOL (scm_sym_name, "name"); + SCM scm_f_gsubr_apply; SCM @@ -207,11 +208,14 @@ void scm_init_gsubr() { scm_f_gsubr_apply = scm_make_subr_opt("gsubr-apply", scm_tc7_lsubr, scm_gsubr_apply, 0); - scm_sym_name = SCM_CAR (scm_sysintern ("name", SCM_UNDEFINED)); - scm_permanent_object (scm_sym_name); + #ifdef GSUBR_TEST scm_make_gsubr("gsubr-2-1-l", 2, 1, 1, gsubr_21l); /* example */ #endif + +#ifndef SCM_MAGIC_SNARFER +#include "libguile/gsubr.x" +#endif } /* |