mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10: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 08:55:05 +00:00
parent d5cf5324a3
commit 68665a9708
2 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2001-10-12 Mikael Djurfeldt <mdj@linnaeus>
* debug.c (scm_mem_to_proc): Fixed typo in previous change.
* validate.h (SCM_VALIDATE_DOUBLE_DEF_COPY): New macro.
2001-10-12 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-10-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
* print.c (scm_print_state_vtable, print_state_pool): * print.c (scm_print_state_vtable, print_state_pool):

13
libguile/validate.h
View file

@ -293,6 +293,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); \