summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/validate.h9
1 files changed, 8 insertions, 1 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index ca7804faa..3da208b51 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -1,4 +1,4 @@
-/* $Id: validate.h,v 1.5 2000-04-15 19:30:16 mdj Exp $ */
+/* $Id: validate.h,v 1.6 2000-04-16 23:01:51 mdj Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
@@ -231,6 +231,13 @@
&& ((unsigned) SCM_INUM (k)) < high)); \
} while (0)
+#define SCM_VALIDATE_INUM_RANGE_COPY(pos, k, low, high, cvar) \
+ do { \
+ SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \
+ cvar = SCM_INUM (k); \
+ SCM_ASSERT_RANGE (pos, k, cvar >= low && cvar < high); \
+ } while (0)
+
#define SCM_VALIDATE_NULL(pos, scm) SCM_MAKE_VALIDATE (pos, scm, NULLP)
#define SCM_VALIDATE_CONS(pos, scm) SCM_MAKE_VALIDATE (pos, scm, CONSP)