summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-17 02:55:00 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-04-17 02:55:00 +0000
commit1a94d961274ca363030ecd25e4e3d4566f490208 (patch)
tree136d6fd4d1f707650aa2f8b8803f18b0c21e06f6 /libguile/validate.h
parentb9c90f11b976a00f5a5f6287430b584da8520e3a (diff)
downloadguile-1a94d961274ca363030ecd25e4e3d4566f490208.tar.gz
* validate.h (SCM_VALIDATE_INUM_RANGE_COPY,
SCM_VALIDATE_REAL_COPY): New macros.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h8
1 files changed, 7 insertions, 1 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index 3da208b51..e3df743fe 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -1,4 +1,4 @@
-/* $Id: validate.h,v 1.6 2000-04-16 23:01:51 mdj Exp $ */
+/* $Id: validate.h,v 1.7 2000-04-17 02:55:00 mdj Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
@@ -159,6 +159,12 @@
#define SCM_VALIDATE_REAL(pos, z) SCM_MAKE_VALIDATE (pos, z, REALP)
+#define SCM_VALIDATE_REAL_COPY(pos, z, cvar) \
+ do { \
+ SCM_ASSERT (SCM_REALP (z), z, pos, FUNC_NAME); \
+ cvar = SCM_REAL_VALUE (z); \
+ } while (0)
+
#define SCM_VALIDATE_INUM(pos, k) SCM_MAKE_VALIDATE (pos, k, INUMP)
#define SCM_VALIDATE_INUM_COPY(pos, k, cvar) \