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

(scm_istr2flo): In polar form angle part, use SCM_INEXACTP

Browse source 
not SCM_SLOPPY_INEXACTP, since recursive scm_istr2flo can give #f.
Reported by Rafael Avila de Espíndola.
This commit is contained in:
Kevin Ryde 2005-02-20 22:52:01 +00:00
parent 8bf854053f
commit 1bbf2cb8cd
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/numbers.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2005
* Free Software Foundation, Inc.
* *
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories * Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories
* and Bellcore. See scm_divide. * and Bellcore. See scm_divide.
@ -2691,7 +2692,7 @@ scm_istr2flo (char *str, long len, long radix)
{ /* polar input for complex number */ { /* polar input for complex number */
/* get a `real' for scm_angle */ /* get a `real' for scm_angle */
second = scm_istr2flo (&str[i], (long) (len - i), radix); second = scm_istr2flo (&str[i], (long) (len - i), radix);
if (!SCM_SLOPPY_INEXACTP (second)) if (!SCM_INEXACTP (second))
return SCM_BOOL_F; /* not `real' */ return SCM_BOOL_F; /* not `real' */
if (SCM_SLOPPY_COMPLEXP (second)) if (SCM_SLOPPY_COMPLEXP (second))
return SCM_BOOL_F; /* not `real' */ return SCM_BOOL_F; /* not `real' */