mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

further boot cleanups

Browse source 
* libguile/srfi-14.c (define_charset):
* libguile/deprecated.c (scm_create_hook): Don't bother making the
  returned objects (hooks or charsets) into permanent objects; they are
  already defined, and then the caller probably stores them away too.

* libguile/init.c (scm_i_init_guile): Add a couple annotations.
This commit is contained in:
Andy Wingo 2009-12-05 11:50:21 +01:00
parent 562cd1b8f8
commit 838aa00070
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/deprecated.c
View file

@ -423,7 +423,7 @@ scm_create_hook (const char *name, int n_args)
{ {
SCM hook = scm_make_hook (scm_from_int (n_args)); SCM hook = scm_make_hook (scm_from_int (n_args));
scm_c_define (name, hook); scm_c_define (name, hook);
return scm_permanent_object (hook); return hook;
} }
} }

4
libguile/init.c
View file

@ -469,7 +469,7 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_fports (); scm_init_fports ();
scm_init_strports (); scm_init_strports ();
scm_init_ports (); scm_init_ports ();
scm_init_gdbint (); /* Requires strports */ scm_init_gdbint (); /* Requires strports, gc_protect_object */
scm_init_hash (); scm_init_hash ();
scm_init_hashtab (); scm_init_hashtab ();
scm_init_deprecation (); scm_init_deprecation ();
@ -516,7 +516,7 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_init_arrays (); scm_init_arrays ();
scm_init_array_map (); scm_init_array_map ();
scm_bootstrap_vm (); scm_bootstrap_vm (); /* requires gc_permanent_object */
scm_init_strings (); /* Requires array-handle */ scm_init_strings (); /* Requires array-handle */
scm_init_struct (); /* Requires strings */ scm_init_struct (); /* Requires strings */

2
libguile/srfi-14.c
View file

@ -2010,7 +2010,7 @@ define_charset (const char *name, const scm_t_char_set *p)
SCM_NEWSMOB (cs, scm_tc16_charset, p); SCM_NEWSMOB (cs, scm_tc16_charset, p);
scm_c_define (name, cs); scm_c_define (name, cs);
return scm_permanent_object (cs); return cs;
} }
SCM_DEFINE (scm_sys_char_set_dump, "%char-set-dump", 1, 0, 0, (SCM charset), SCM_DEFINE (scm_sys_char_set_dump, "%char-set-dump", 1, 0, 0, (SCM charset),