summaryrefslogtreecommitdiff
path: root/libguile/scm_validate.h
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/scm_validate.h
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/scm_validate.h')
-rw-r--r--libguile/scm_validate.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/scm_validate.h b/libguile/scm_validate.h
index 6b01d2293..3186f1f2e 100644
--- a/libguile/scm_validate.h
+++ b/libguile/scm_validate.h
@@ -1,4 +1,4 @@
-/* $Id: scm_validate.h,v 1.12 2000-01-06 18:04:14 gjb Exp $ */
+/* $Id: scm_validate.h,v 1.13 2000-01-07 23:53:20 gjb Exp $ */
/* Copyright (C) 1999 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
@@ -75,7 +75,7 @@
#define SCM_NUM2LONG_LONG(pos,arg) (scm_num2long_long(arg, (char *) pos, FUNC_NAME))
-#define SCM_OUT_OF_RANGE(pos,arg) do { scm_out_of_range(FUNC_NAME,arg); } while (0)
+#define SCM_OUT_OF_RANGE(pos,arg) do { scm_out_of_range_pos(FUNC_NAME,arg,scm_long2num(pos)); } while (0)
#define SCM_ASSERT_RANGE(pos,arg,f) do { SCM_ASSERT(f,arg,SCM_OUTOFRANGE,FUNC_NAME); } while (0)