mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

* Initialize symbols using SCM_(GLOBAL_)?SYMBOL instead of scm_sysintern...

Browse source 
* Use scm_str2symbol instead of scm_sysintern0.
* Garbage collection initialization code now within gc.c only.
This commit is contained in:
Dirk Herrmann 2000-12-11 14:48:23 +00:00
parent 24737ba02a
commit 85db4a2c8e
11 changed files with 102 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/options.c
View file

@ -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)));