diff options
author | Andy Wingo <wingo@pobox.com> | 2017-02-28 17:02:25 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-02-28 17:02:25 +0100 |
commit | 33514ffe22b8cd15ff7ba95bcee80a534b2bbc2a (patch) | |
tree | 796ef13739d8021f597020ef5c168cfa12fd3fd6 /libguile/bytevectors.c | |
parent | f3a1872703bf8b9b8f92bbdba01aa75927bd1b8f (diff) | |
download | guile-33514ffe22b8cd15ff7ba95bcee80a534b2bbc2a.tar.gz |
Fix segfault introduced with R6RS port commit
* libguile/init.c (scm_i_init_guile): Move scm_register_r6rs_ports
later, so that defining port types hsa the SCM trampoline subrs
defined.
* libguile/bytevectors.c (scm_bootstrap_bytevectors): Cosmetic changes.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index 58df01830..7b4585d1f 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -2095,10 +2095,14 @@ scm_bootstrap_bytevectors (void) loaded. */ scm_null_bytevector = make_bytevector (0, SCM_ARRAY_ELEMENT_TYPE_VU8); + + scm_endianness_big = sym_big = scm_from_latin1_symbol ("big"); + scm_endianness_little = sym_little = scm_from_latin1_symbol ("little"); + #ifdef WORDS_BIGENDIAN - scm_i_native_endianness = scm_from_latin1_symbol ("big"); + scm_i_native_endianness = sym_big; #else - scm_i_native_endianness = scm_from_latin1_symbol ("little"); + scm_i_native_endianness = sym_little; #endif scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION, @@ -2109,9 +2113,6 @@ scm_bootstrap_bytevectors (void) scm_i_register_vector_constructor (scm_i_array_element_types[SCM_ARRAY_ELEMENT_TYPE_VU8], scm_make_bytevector); - - scm_endianness_big = sym_big = scm_from_latin1_symbol ("big"); - scm_endianness_little = sym_little = scm_from_latin1_symbol ("little"); } void |