diff options
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index 1c039f1d5..e0aeff348 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -552,7 +552,7 @@ integer value small enough to fit in one machine word.") fields_desc = (unsigned char *) SCM_CHARS (layout); n_fields = data[scm_struct_i_n_words]; - SCM_ASSERT (p < n_fields, pos, SCM_OUTOFRANGE, FUNC_NAME); + SCM_ASSERT_RANGE(1,pos, p < n_fields); if (p * 2 < SCM_LENGTH (layout)) { @@ -629,7 +629,7 @@ GUILE_PROC (scm_struct_set_x, "struct-set!", 3, 0, 0, fields_desc = (unsigned char *)SCM_CHARS (layout); n_fields = data[scm_struct_i_n_words]; - SCM_ASSERT (p < n_fields, pos, SCM_OUTOFRANGE, FUNC_NAME); + SCM_ASSERT_RANGE (1,pos, p < n_fields); if (p * 2 < SCM_LENGTH (layout)) { |