summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index 854bf8ae5..51f934e07 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -142,7 +142,7 @@ init_struct (handle, tail_elts, inits)
SCM layout;
SCM * data;
unsigned char * fields_desc;
- unsigned char prot;
+ unsigned char prot = 0;
int n_fields;
SCM * mem;
int tailp = 0;
@@ -456,6 +456,7 @@ scm_struct_ref (handle, pos)
else
{
SCM_ASSERT (0, pos, "ref denied", s_struct_ref);
+ abort ();
}
switch (field_type)
@@ -532,6 +533,7 @@ scm_struct_set_x (handle, pos, val)
else
{
SCM_ASSERT (0, pos, "set_x denied", s_struct_ref);
+ abort ();
}
switch (field_type)