diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-04-18 15:23:11 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-04-18 15:23:11 +0000 |
commit | 120d4924ed1ee56975845016fb2d98d4301b9ad9 (patch) | |
tree | d236ad3c2b15f9de8a78a972a360388b07a711c6 /libguile/validate.h | |
parent | fee7ef83a31a2c83711e726c8a346d554864352d (diff) | |
download | guile-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.h | 15 |
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 { \ |