From d098d810cfbe3c7052f1c0291e582cf8b5c47b03 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Sat, 25 Aug 2001 18:22:50 +0000
Subject: [PATCH] (SCM_VALIDATE_USHORT_COPY, SCM_VALIDATE_SHORT_COPY,
 SCM_VALIDATE_UINT_COPY, SCM_VALIDATE_INT_COPY): New macros. Thanks to Chris
 Cramer.

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

diff --git a/libguile/validate.h b/libguile/validate.h
index 51a9708cf..869ae97a4 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -1,4 +1,3 @@
-/* $Id: validate.h,v 1.34 2001-06-26 10:59:34 dirk Exp $ */
 /* Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
@@ -199,6 +198,26 @@
     cvar = SCM_INUM (k); \
   } while (0)
 
+#define SCM_VALIDATE_USHORT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2USHORT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_SHORT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2SHORT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_UINT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2UINT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_INT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2INT (pos, k); \
+  } while (0)
+
 #define SCM_VALIDATE_ULONG_COPY(pos, k, cvar) \
   do { \
     cvar = SCM_NUM2ULONG (pos, k); \