mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* validate.h (SCM_VALIDATE_DOUBLE_DEF_COPY): New macro.

Browse source
This commit is contained in:
Mikael Djurfeldt 2001-10-12 09:00:24 +00:00
parent f8071ff3fb
commit f29d1d2265
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2001-10-12 Mikael Djurfeldt <mdj@linnaeus>
* validate.h (SCM_VALIDATE_DOUBLE_DEF_COPY): New macro.
2001-10-08 Rob Browning <rlb@defaultvalue.org> 2001-10-08 Rob Browning <rlb@defaultvalue.org>
* gc.c: support ia64 register backing store. * gc.c: support ia64 register backing store.

13
libguile/validate.h
View file

@ -289,6 +289,19 @@
} \ } \
} while (0) } while (0)
#define SCM_VALIDATE_DOUBLE_DEF_COPY(pos, k, default, cvar) \
do { \
if (SCM_UNBNDP (k)) \
{ \
k = scm_make_real (default); \
cvar = default; \
} \
else \
{ \
cvar = SCM_NUM2DOUBLE (pos, k); \
} \
} while (0)
/* [low,high) */ /* [low,high) */
#define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \ #define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \
do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \