diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-09-03 21:56:03 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-09-03 21:56:03 +0000 |
commit | ee1a1c206640248a0ee93f6c373871db6fb14b5b (patch) | |
tree | 5260bea79c00dd6f7e2993babba817a6068e93eb | |
parent | 17f367e095148b4731b097543d34dc9564415b52 (diff) | |
download | guile-ee1a1c206640248a0ee93f6c373871db6fb14b5b.tar.gz |
* validate.h (SCM_VALIDATE_NUMBER_DEF_COPY): New macro.
-rw-r--r-- | libguile/validate.h | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/libguile/validate.h b/libguile/validate.h index 9889757d8..3ddcebe25 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -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. * * This program is free software; you can redistribute it and/or modify @@ -183,6 +183,14 @@ } \ } 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_COPY(pos, k, cvar) \ |