mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* validate.h (SCM_VALIDATE_NUMBER): New.

Browse source
This commit is contained in:
Marius Vollmer 2001-01-06 18:46:48 +00:00
parent b7d69200c0
commit e8a46ba8c3
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.22 2000-12-16 20:25:08 kei Exp $ */ /* $Id: validate.h,v 1.23 2001-01-06 18:46:48 mvo Exp $ */
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc. /* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -137,6 +137,8 @@
#define SCM_VALIDATE_REAL(pos, z) SCM_MAKE_VALIDATE (pos, z, REALP) #define SCM_VALIDATE_REAL(pos, z) SCM_MAKE_VALIDATE (pos, z, REALP)
#define SCM_VALIDATE_NUMBER(pos, z) SCM_MAKE_VALIDATE (pos, z, NUMBERP)
#define SCM_VALIDATE_NUMBER_COPY(pos, z, cvar) \ #define SCM_VALIDATE_NUMBER_COPY(pos, z, cvar) \
do { \ do { \
if (SCM_INUMP (z)) \ if (SCM_INUMP (z)) \