diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:00:03 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:00:03 +0000 |
commit | 47c6b75ea980821737e8030190d24b9aa30e978d (patch) | |
tree | 94e1566e9a7bd7b8b4f3abfadde47faad8f45830 /libguile/scm_validate.h | |
parent | f5421cfc2a694b6c4eb9e035d583cc461994b4ce (diff) | |
download | guile-47c6b75ea980821737e8030190d24b9aa30e978d.tar.gz |
* *.[ch]: Replace SCM_VALIDATE_INT w/ SCM_VALIDATE_INUM for
better consistency with the names of other SCM_VALIDATE_ macros
and better conformance to guile naming policy.
Diffstat (limited to 'libguile/scm_validate.h')
-rw-r--r-- | libguile/scm_validate.h | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/libguile/scm_validate.h b/libguile/scm_validate.h index d67f2b780..7c9e303c8 100644 --- a/libguile/scm_validate.h +++ b/libguile/scm_validate.h @@ -1,4 +1,4 @@ -/* $Id: scm_validate.h,v 1.9 2000-01-05 16:16:57 gjb Exp $ */ +/* $Id: scm_validate.h,v 1.10 2000-01-05 19:00:02 gjb Exp $ */ /* Copyright (C) 1999 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify @@ -130,39 +130,39 @@ #define SCM_VALIDATE_REAL(pos,z) SCM_MAKE_VALIDATE(pos,z,REALP) -#define SCM_VALIDATE_INT(pos,k) SCM_MAKE_VALIDATE(pos,k,INUMP) +#define SCM_VALIDATE_INUM(pos,k) SCM_MAKE_VALIDATE(pos,k,INUMP) -#define SCM_VALIDATE_INT_COPY(pos,k,cvar) \ +#define SCM_VALIDATE_INUM_COPY(pos,k,cvar) \ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ cvar = SCM_INUM(k); } while (0) #define SCM_VALIDATE_BIGINT(pos,k) SCM_MAKE_VALIDATE(pos,k,BIGP) -#define SCM_VALIDATE_INT_MIN(pos,k,min) \ +#define SCM_VALIDATE_INUM_MIN(pos,k,min) \ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ SCM_ASSERT_RANGE(pos,k,(SCM_INUM(k) >= min)); } while (0) -#define SCM_VALIDATE_INT_MIN_COPY(pos,k,min,cvar) \ +#define SCM_VALIDATE_INUM_MIN_COPY(pos,k,min,cvar) \ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ cvar = SCM_INUM(k); \ SCM_ASSERT_RANGE(pos,k,(cvar >= min)); } while (0) -#define SCM_VALIDATE_INT_MIN_DEF_COPY(pos,k,min,default,cvar) \ +#define SCM_VALIDATE_INUM_MIN_DEF_COPY(pos,k,min,default,cvar) \ do { if (SCM_UNBNDP(k)) k = SCM_MAKINUM(default); \ SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ cvar = SCM_INUM(k); \ SCM_ASSERT_RANGE(pos,k,(cvar >= min)); } while (0) -#define SCM_VALIDATE_INT_DEF(pos,k,default) \ +#define SCM_VALIDATE_INUM_DEF(pos,k,default) \ do { if (SCM_UNDEFINED==k) k = SCM_MAKINUM(default); \ else SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); } while (0) -#define SCM_VALIDATE_INT_DEF_COPY(pos,k,default,cvar) \ +#define SCM_VALIDATE_INUM_DEF_COPY(pos,k,default,cvar) \ do { if (SCM_UNDEFINED==k) { k = SCM_MAKINUM(default); cvar=default; } \ else { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); cvar = SCM_INUM(k); } } while (0) /* [low,high) */ -#define SCM_VALIDATE_INT_RANGE(pos,k,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) |