(SCM_VALIDATE_USHORT_COPY, SCM_VALIDATE_SHORT_COPY,

SCM_VALIDATE_UINT_COPY, SCM_VALIDATE_INT_COPY): New macros.
Thanks to Chris Cramer.

diff --git a/libguile/validate.h b/libguile/validate.h
index 51a9708..869ae97 100644 (file)
--- 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); \