From ee1a1c206640248a0ee93f6c373871db6fb14b5b Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sun, 3 Sep 2000 21:56:03 +0000
Subject: [PATCH] * validate.h (SCM_VALIDATE_NUMBER_DEF_COPY): New macro.

---
 libguile/validate.h | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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) \