summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 18:48:07 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 18:48:07 +0000
commitc751e5e3c31588f8b32c628519efa2c515c1a617 (patch)
tree50ab86fea5acbdf1dc699174ef2d4f122b1b8986 /libguile/struct.c
parent5a237c9d5d7cbe592b0ba7f133dadc0cf18bb4e3 (diff)
downloadguile-c751e5e3c31588f8b32c628519efa2c515c1a617.tar.gz
* guile-snarf.awk.in: Do argument/number mismatch checking and
print warnings in an Emacs compile-mode parseable format. * struct.c: Use SCM_ASSERT_RANGE instead of SCM_ASSERT w/ SCM_OUTOFRANGE as 3rd argument. * random.c: Fix argument/number mismatch (that I introduced :-( ). * __scm.h: Do not #define SCM_ARG* when snarfing; lets us distinguish between 1 and SCM_ARG1 when snarfing as only the former (using the number) requires the argument to match the formal in the current argument snarfing check. * ramap.c: Remove extraneous #undef FUNC_NAME.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c4
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))
{