diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-11 14:48:23 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-11 14:48:23 +0000 |
commit | 85db4a2c8eead51392bb16ea383526ba1ddfd23f (patch) | |
tree | 85274049b74a2787ed5b22700cb40d063303468a /libguile/gsubr.c | |
parent | 24737ba02af8cb63982f50b7df45955b4b375298 (diff) | |
download | guile-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.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 } /* |