From e8a46ba8c316fe69d2616d9a24bfdc31eecf701c Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 6 Jan 2001 18:46:48 +0000
Subject: [PATCH] * validate.h (SCM_VALIDATE_NUMBER): New.

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

diff --git a/libguile/validate.h b/libguile/validate.h
index cf9e603bc..d15460aa5 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -1,4 +1,4 @@
-/* $Id: validate.h,v 1.22 2000-12-16 20:25:08 kei Exp $ */
+/* $Id: validate.h,v 1.23 2001-01-06 18:46:48 mvo Exp $ */
 /*	Copyright (C) 1999, 2000 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
@@ -137,6 +137,8 @@
 
 #define SCM_VALIDATE_REAL(pos, z) SCM_MAKE_VALIDATE (pos, z, REALP)
 
+#define SCM_VALIDATE_NUMBER(pos, z) SCM_MAKE_VALIDATE (pos, z, NUMBERP)
+
 #define SCM_VALIDATE_NUMBER_COPY(pos, z, cvar)	\
   do {						\
     if (SCM_INUMP (z))				\