mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 03:30:27 +02:00
brace placement fixes
* libguile/goops.c (scm_sys_allocate_instance): * libguile/vm-i-loader.c (load-wide-string): Fix some brace placements.
This commit is contained in:
parent
eb721b3b10
commit
71fc643893
2 changed files with 4 additions and 2 deletions
|
@ -1495,7 +1495,8 @@ SCM_DEFINE (scm_sys_allocate_instance, "%allocate-instance", 2, 0, 0,
|
|||
|
||||
/* Set all SCM-holding slots to unbound */
|
||||
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')
|
||||
SCM_STRUCT_DATA (obj)[i] = SCM_UNPACK (SCM_GOOPS_UNBOUND);
|
||||
else if (c == 's')
|
||||
|
|
|
@ -107,7 +107,8 @@ VM_DEFINE_LOADER (90, load_wide_string, "load-wide-string")
|
|||
|
||||
FETCH_LENGTH (len);
|
||||
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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue