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

brace placement fixes

Browse source 
* libguile/goops.c (scm_sys_allocate_instance):
* libguile/vm-i-loader.c (load-wide-string): Fix some brace placements.
This commit is contained in:
Andy Wingo 2009-11-26 00:12:12 +01:00
parent eb721b3b10
commit 71fc643893
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/goops.c
View file

@ -1495,7 +1495,8 @@ SCM_DEFINE (scm_sys_allocate_instance, "%allocate-instance", 2, 0, 0,
/* Set all SCM-holding slots to unbound */ /* Set all SCM-holding slots to unbound */
for (i = 0; i < n; i++) for (i = 0; i < n; i++)
{ scm_t_wchar c = scm_i_symbol_ref (layout, i*2); {
scm_t_wchar c = scm_i_symbol_ref (layout, i*2);
if (c == 'p') if (c == 'p')
SCM_STRUCT_DATA (obj)[i] = SCM_UNPACK (SCM_GOOPS_UNBOUND); SCM_STRUCT_DATA (obj)[i] = SCM_UNPACK (SCM_GOOPS_UNBOUND);
else if (c == 's') else if (c == 's')

3
libguile/vm-i-loader.c
View file

@ -107,7 +107,8 @@ VM_DEFINE_LOADER (90, load_wide_string, "load-wide-string")
FETCH_LENGTH (len); FETCH_LENGTH (len);
if (SCM_UNLIKELY (len % 4)) if (SCM_UNLIKELY (len % 4))
{ finish_args = scm_list_1 (scm_from_size_t (len)); {
finish_args = scm_list_1 (scm_from_size_t (len));
goto vm_error_bad_wide_string_length; goto vm_error_bad_wide_string_length;
} }