summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r--libguile/gsubr.c10
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
}
/*