From 1e35a229f0ecb98ac04eb4a9ee839af5e6f722e5 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Wed, 8 Sep 2004 01:03:06 +0000 Subject: [PATCH] Revert this: (scm_integer_p): +/-inf is not an integer. --- libguile/ChangeLog | 1 - libguile/numbers.c | 3 +-- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index d406a6b22..0cc06da39 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -8,7 +8,6 @@ 2004-09-07 Kevin Ryde * numbers.c (scm_integer_expt): Reject exponent +/-inf. - (scm_integer_p): +/-inf is not an integer. Bug report by Bill Schottstaedt. * ports.c (scm_getc, scm_lfwrite): Recognise \a \b and \r for port diff --git a/libguile/numbers.c b/libguile/numbers.c index 2d52bb097..e486a9576 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -3095,8 +3095,7 @@ SCM_DEFINE (scm_integer_p, "integer?", 1, 0, 0, if (SCM_COMPLEXP (x)) return SCM_BOOL_F; r = SCM_REAL_VALUE (x); - if (xisinf (r)) - return SCM_BOOL_F; + /* +/-inf passes r==floor(r), making those #t */ if (r == floor (r)) return SCM_BOOL_T; return SCM_BOOL_F;