summaryrefslogtreecommitdiff
path: root/libguile/gsubr.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-11 14:48:23 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-12-11 14:48:23 +0000
commit85db4a2c8eead51392bb16ea383526ba1ddfd23f (patch)
tree85274049b74a2787ed5b22700cb40d063303468a /libguile/gsubr.c
parent24737ba02af8cb63982f50b7df45955b4b375298 (diff)
downloadguile-85db4a2c8eead51392bb16ea383526ba1ddfd23f.tar.gz
* Initialize symbols using SCM_(GLOBAL_)?SYMBOL instead of scm_sysintern...
* Use scm_str2symbol instead of scm_sysintern0. * Garbage collection initialization code now within gc.c only.
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
}
/*