mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* validate.h (SCM_VALIDATE_NUMBER_DEF_COPY): New macro.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-09-03 21:56:03 +00:00
parent 17f367e095
commit ee1a1c2066
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.13 2000-06-30 09:48:25 dirk Exp $ */ /* $Id: validate.h,v 1.14 2000-09-03 21:56:03 mdj Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc. /* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -183,6 +183,14 @@
} \ } \
} while (0) } while (0)
#define SCM_VALIDATE_NUMBER_DEF_COPY(pos, number, def, cvar) \
do { \
if (SCM_UNBNDP (number)) \
cvar = def; \
else \
SCM_VALIDATE_NUMBER_COPY(pos, number, cvar); \
} while (0)
#define SCM_VALIDATE_INUM(pos, k) SCM_MAKE_VALIDATE (pos, k, INUMP) #define SCM_VALIDATE_INUM(pos, k) SCM_MAKE_VALIDATE (pos, k, INUMP)
#define SCM_VALIDATE_INUM_COPY(pos, k, cvar) \ #define SCM_VALIDATE_INUM_COPY(pos, k, cvar) \