* scm_validate.h: Added SCM_VALIDATE_ULONG_COPY,

[bpt/guile.git] / libguile / scm_validate.h

diff --git a/libguile/scm_validate.h b/libguile/scm_validate.h
index 3a42d2b..d1df333 100644 (file)
--- a/libguile/scm_validate.h
+++ b/libguile/scm_validate.h
@@ -1,4 +1,4 @@
-/* $Id: scm_validate.h,v 1.18 2000-01-14 17:35:13 gjb Exp $ */
+/* $Id: scm_validate.h,v 1.19 2000-01-17 19:44:01 gjb Exp $ */
 /*     Copyright (C) 1999 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
@@ -138,6 +138,12 @@
   do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \
        cvar = SCM_INUM(k); } while (0)
 
+#define SCM_VALIDATE_ULONG_COPY(pos,k,cvar) \
+  do { cvar = SCM_NUM2ULONG(pos,k); } while (0)
+
+#define SCM_VALIDATE_LONG_COPY(pos,k,cvar) \
+  do { cvar = SCM_NUM2LONG(pos,k); } while (0)
+
 #define SCM_VALIDATE_BIGINT(pos,k) SCM_MAKE_VALIDATE(pos,k,BIGP)
 
 #define SCM_VALIDATE_INUM_MIN(pos,k,min) \