summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-08 15:58:11 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-08 15:58:11 +0000
commit93ccaef0c60868bb1a6e0747387ce34c0172b53e (patch)
tree867f5f7dbb2cdf28ed68ce2bac89f0c8878be657 /libguile/validate.h
parent43240c9caf66f802ba50df685e3e8b44e38906a5 (diff)
downloadguile-93ccaef0c60868bb1a6e0747387ce34c0172b53e.tar.gz
* numbers.h (SCM_MAKINUM, SCM_I_MAKINUM): Renamed SCM_MAKINUM to
SCM_I_MAKINUM and changed all uses.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index 99a63deda..31c5d1e53 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -99,10 +99,10 @@
(scm_num2double (arg, pos, FUNC_NAME))
#define SCM_OUT_OF_RANGE(pos, arg) \
- do { scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0)
+ do { scm_out_of_range_pos (FUNC_NAME, arg, scm_from_int (pos)); } while (0)
#define SCM_ASSERT_RANGE(pos, arg, f) \
- do { if (!(f)) scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0)
+ do { if (!(f)) scm_out_of_range_pos (FUNC_NAME, arg, scm_from_int (pos)); } while (0)
#define SCM_MUST_MALLOC_TYPE(type) \
((type *) scm_must_malloc (sizeof (type), FUNC_NAME))
@@ -250,7 +250,7 @@
#define SCM_VALIDATE_INUM_MIN_DEF_COPY(pos, k, min, default, cvar) \
do { \
if (SCM_UNBNDP (k)) \
- k = SCM_MAKINUM (default); \
+ k = SCM_I_MAKINUM (default); \
SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \
SCM_ASSERT_RANGE (pos, k, (SCM_INUM (k) >= min)); \
cvar = SCM_INUM (k); \
@@ -259,7 +259,7 @@
#define SCM_VALIDATE_INUM_DEF(pos, k, default) \
do { \
if (SCM_UNBNDP (k)) \
- k = SCM_MAKINUM (default); \
+ k = SCM_I_MAKINUM (default); \
else SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \
} while (0)
@@ -267,7 +267,7 @@
do { \
if (SCM_UNBNDP (k)) \
{ \
- k = SCM_MAKINUM (default); \
+ k = SCM_I_MAKINUM (default); \
cvar = default; \
} \
else \