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

IS_INF: Undid last change.

Browse source
This commit is contained in:
Dirk Herrmann 2000-05-10 09:25:11 +00:00
parent 7bbe9dee9e
commit 7235ee58f5
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/ChangeLog
View file

@ -1,3 +1,11 @@
2000-05-10 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.c: No need to include unif.h.
(IS_INF): Returned to old test for now: x == x + 1 will not work
for large numbers due to rounding errors.
Thanks to Kalle Olavi Niemitalo.
2000-05-09 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.c (scm_divbigdig): Removed outdated comment.

3
libguile/numbers.c
View file

@ -47,7 +47,6 @@
#include <stdio.h>
#include <math.h>
#include "libguile/_scm.h"
#include "libguile/unif.h"
#include "libguile/feature.h"
#include "libguile/ports.h"
#include "libguile/root.h"
@ -74,7 +73,7 @@ static SCM scm_divbigint (SCM x, long z, int sgn, int mode);
/* IS_INF tests its floating point number for infiniteness
*/
#ifndef IS_INF
#define IS_INF(x) ((x) == (x) + 1)
#define IS_INF(x) ((x) == (x) / 2)
#endif
/* Return true if X is not infinite and is not a NaN