diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-05 11:43:20 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-05 11:44:09 +0100 |
commit | 562cd1b8f87dfb099c9cca5dfa4846367e6c9ca3 (patch) | |
tree | 8a135c215bc7bf1787840357ff8297fb54d9118f /libguile/bytevectors.c | |
parent | f39448c5a3804f823e367d97cd5e862b016cb8aa (diff) | |
download | guile-562cd1b8f87dfb099c9cca5dfa4846367e6c9ca3.tar.gz |
more boot cleanup
* libguile/bytevectors.c (scm_bootstrap_bytevectors): Remove a call to
scm_gc_protect_object.
* libguile/gc.h:
* libguile/gc.c (scm_init_gc_protect_object): Rename from
scm_init_storage, and just return void. Make the GC boot procs have
internal linkage.
* libguile/init.c: Adapt to the name change.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index 63fdb5ca3..ac5bc1646 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -2202,8 +2202,7 @@ scm_bootstrap_bytevectors (void) /* This must be instantiated here because the generalized-vector API may want to access bytevectors even though `(rnrs bytevector)' hasn't been loaded. */ - scm_null_bytevector = - scm_gc_protect_object (make_bytevector (0, SCM_ARRAY_ELEMENT_TYPE_VU8)); + scm_null_bytevector = make_bytevector (0, SCM_ARRAY_ELEMENT_TYPE_VU8); #ifdef WORDS_BIGENDIAN scm_i_native_endianness = scm_from_locale_symbol ("big"); |