diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-07 23:53:20 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-07 23:53:20 +0000 |
commit | 1e76143f0fad331651561e9bbc2bc9752dd25689 (patch) | |
tree | 91cc56f314693a6e0e75ed073a2b6f096f28c57b /libguile/error.h | |
parent | 73d8385e9fb718d182935494a8dbceb8812a6467 (diff) | |
download | guile-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.h')
-rw-r--r-- | libguile/error.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/error.h b/libguile/error.h index 6dfbbc230..61bf5ec8d 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -71,6 +71,8 @@ extern void scm_sysmissing SCM_P ((const char *subr)) SCM_NORETURN; extern void scm_num_overflow SCM_P ((const char *subr)) SCM_NORETURN; extern void scm_out_of_range SCM_P ((const char *subr, SCM bad_value)) SCM_NORETURN; +extern void scm_out_of_range_pos SCM_P ((const char *subr, SCM bad_value, SCM pos)) + SCM_NORETURN; extern void scm_wrong_num_args SCM_P ((SCM proc)) SCM_NORETURN; extern void scm_wrong_type_arg SCM_P ((const char *subr, int pos, SCM bad_value)) SCM_NORETURN; |