From 85db4a2c8eead51392bb16ea383526ba1ddfd23f Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 11 Dec 2000 14:48:23 +0000 Subject: * 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. --- libguile/options.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'libguile/options.c') diff --git a/libguile/options.c b/libguile/options.c index 051286d5c..94e74d573 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -218,9 +218,15 @@ scm_init_opts (SCM (*func) (SCM), scm_option options[], int n) for (i = 0; i < n; ++i) { - options[i].name = (char *) SCM_CAR (scm_sysintern0 (options[i].name)); - options[i].doc = (char *) scm_permanent_object (scm_take0str - (options[i].doc)); + SCM name; + SCM doc; + + name = scm_str2symbol (options[i].name); + options[i].name = (char *) name; + scm_permanent_object (name); + doc = scm_take0str (options[i].doc); + options[i].doc = (char *) doc; + scm_permanent_object (doc); if (options[i].type == SCM_OPTION_SCM) SCM_SETCDR (protected_objects, scm_cons (SCM_PACK(options[i].val), SCM_CDR (protected_objects))); -- cgit v1.2.3