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

Renamed SCM_VALIDATE_REAL_COPY --> SCM_VALIDATE_REAL_NUMBER.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-04-17 03:17:02 +00:00
parent 7aac9824fd
commit 2891588bee
2 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -1,7 +1,7 @@
2000-04-17 Mikael Djurfeldt <mdj@thalamus.nada.kth.se> 2000-04-17 Mikael Djurfeldt <mdj@thalamus.nada.kth.se>
* validate.h (SCM_VALIDATE_INUM_RANGE_COPY, * validate.h (SCM_VALIDATE_INUM_RANGE_COPY,
SCM_VALIDATE_REAL_COPY): New macros. SCM_VALIDATE_NUMBER_COPY): New macros.
2000-04-16 Mikael Djurfeldt <mdj@mdj.nada.kth.se> 2000-04-16 Mikael Djurfeldt <mdj@mdj.nada.kth.se>

19
libguile/validate.h
View file

@ -1,4 +1,4 @@
/* $Id: validate.h,v 1.7 2000-04-17 02:55:00 mdj Exp $ */ /* $Id: validate.h,v 1.8 2000-04-17 03:17:02 mdj 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
@ -159,10 +159,19 @@
#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_REAL_COPY(pos, z, cvar) \ #define SCM_VALIDATE_NUMBER_COPY(pos, z, cvar) \
do { \ do { \
SCM_ASSERT (SCM_REALP (z), z, pos, FUNC_NAME); \ if (SCM_INUMP (z)) \
cvar = SCM_REAL_VALUE (z); \ cvar = (double) SCM_INUM (z); \
else if (SCM_REALP (z)) \
cvar = SCM_REAL_VALUE (z); \
else if (SCM_BIGP (z)) \
cvar = scm_big2dbl (z); \
else \
{ \
cvar = 0.0; \
SCM_WTA (pos, z); \
} \
} while (0) } while (0)
#define SCM_VALIDATE_INUM(pos, k) SCM_MAKE_VALIDATE (pos, k, INUMP) #define SCM_VALIDATE_INUM(pos, k) SCM_MAKE_VALIDATE (pos, k, INUMP)