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

Revert this:

Browse source 
(scm_integer_p): +/-inf is not an integer.
This commit is contained in:
Kevin Ryde 2004-09-08 01:03:06 +00:00
parent 616775edb7
commit 1e35a229f0
2 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/ChangeLog
View file

@ -8,7 +8,6 @@
2004-09-07 Kevin Ryde <user42@zip.com.au> 2004-09-07 Kevin Ryde <user42@zip.com.au>
* numbers.c (scm_integer_expt): Reject exponent +/-inf. * numbers.c (scm_integer_expt): Reject exponent +/-inf.
(scm_integer_p): +/-inf is not an integer.
Bug report by Bill Schottstaedt. Bug report by Bill Schottstaedt.
* ports.c (scm_getc, scm_lfwrite): Recognise \a \b and \r for port * ports.c (scm_getc, scm_lfwrite): Recognise \a \b and \r for port

3
libguile/numbers.c
View file

@ -3095,8 +3095,7 @@ SCM_DEFINE (scm_integer_p, "integer?", 1, 0, 0,
if (SCM_COMPLEXP (x)) if (SCM_COMPLEXP (x))
return SCM_BOOL_F; return SCM_BOOL_F;
r = SCM_REAL_VALUE (x); r = SCM_REAL_VALUE (x);
if (xisinf (r)) /* +/-inf passes r==floor(r), making those #t */
return SCM_BOOL_F;
if (r == floor (r)) if (r == floor (r))
return SCM_BOOL_T; return SCM_BOOL_T;
return SCM_BOOL_F; return SCM_BOOL_F;