mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* validate.h (SCM_VALIDATE_INUM_RANGE_COPY,

Browse source 
SCM_VALIDATE_REAL_COPY): New macros.
This commit is contained in:
Mikael Djurfeldt 2000-04-17 02:55:00 +00:00
parent b9c90f11b9
commit 1a94d96127
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/validate.h
View file

@ -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) \