summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-07 23:53:20 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-07 23:53:20 +0000
commit1e76143f0fad331651561e9bbc2bc9752dd25689 (patch)
tree91cc56f314693a6e0e75ed073a2b6f096f28c57b /libguile/error.c
parent73d8385e9fb718d182935494a8dbceb8812a6467 (diff)
downloadguile-1e76143f0fad331651561e9bbc2bc9752dd25689.tar.gz
* scm_validate.h (SCM_OUT_OF_RANGE): Use scm_out_of_range_pos to
report the position of the argument. * error.h, error.c (scm_out_of_range_pos): Added this function to take extra "pos" argument, the position number of the errant argument. * debug.c: Use SCM_OUT_OF_RANGE instead of scm_out_of_range. * snarf.h: Use SCM_HERE and SCM_INIT as names, not SCM_NOTSNARF and SCM_SNARFING. Also put the %%% in the SCM_INIT since Mikael prefers that and I'm reasonably indifferent.
Diffstat (limited to 'libguile/error.c')
-rw-r--r--libguile/error.c11
1 files changed, 11 insertions, 0 deletions
diff --git a/libguile/error.c b/libguile/error.c
index 4ff12ae01..52bda683c 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -185,6 +185,17 @@ scm_out_of_range (const char *subr, SCM bad_value)
SCM_BOOL_F);
}
+void
+scm_out_of_range_pos (const char *subr, SCM bad_value, SCM pos)
+{
+ scm_error (scm_out_of_range_key,
+ subr,
+ "Argument %S out of range: %S",
+ scm_listify (pos, bad_value, SCM_UNDEFINED),
+ SCM_BOOL_F);
+}
+
+
SCM_SYMBOL (scm_args_number_key, "wrong-number-of-args");
void
scm_wrong_num_args (SCM proc)