summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-04-18 15:23:11 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-04-18 15:23:11 +0000
commit120d4924ed1ee56975845016fb2d98d4301b9ad9 (patch)
treed236ad3c2b15f9de8a78a972a360388b07a711c6 /libguile/validate.h
parentfee7ef83a31a2c83711e726c8a346d554864352d (diff)
downloadguile-120d4924ed1ee56975845016fb2d98d4301b9ad9.tar.gz
* validate.h: Do not cast to (unsigned) in SCM_VALIDATE_INUM_RANGE
when testing high-end of the range. Mikael Djurfeldt noticed this anomaly -- thanks Mikael!
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h15
1 files changed, 7 insertions, 8 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index 5624957bd..53159c999 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -1,4 +1,4 @@
-/* $Id: validate.h,v 1.8 2000-04-17 03:17:02 mdj Exp $ */
+/* $Id: validate.h,v 1.9 2000-04-18 15:23:11 gjb Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
@@ -238,13 +238,12 @@
} while (0)
/* [low,high) */
-#define SCM_VALIDATE_INUM_RANGE(pos, k, low, high) \
- do { \
- SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \
- SCM_ASSERT_RANGE (pos, k, \
- (SCM_INUM (k) >= low \
- && ((unsigned) SCM_INUM (k)) < high)); \
- } while (0)
+#define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \
+ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \
+ SCM_ASSERT_RANGE(pos,k, \
+ (SCM_INUM (k) >= low && \
+ SCM_INUM (k) < high)); \
+ } while (0)
#define SCM_VALIDATE_INUM_RANGE_COPY(pos, k, low, high, cvar) \
do { \