From 1bbf2cb8cd88976b1a0378b33a98972e4a613540 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sun, 20 Feb 2005 22:52:01 +0000 Subject: [PATCH] =?UTF-8?q?(scm=5Fistr2flo):=20In=20polar=20form=20angle?= =?UTF-8?q?=20part,=20use=20SCM=5FINEXACTP=20not=20SCM=5FSLOPPY=5FINEXACTP?= =?UTF-8?q?,=20since=20recursive=20scm=5Fistr2flo=20can=20give=20#f.=20Rep?= =?UTF-8?q?orted=20by=20Rafael=20Avila=20de=20Esp=C3=ADndola.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- libguile/numbers.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index c17b94645..471be67a9 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -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 * and Bellcore. See scm_divide. @@ -2691,7 +2692,7 @@ scm_istr2flo (char *str, long len, long radix) { /* polar input for complex number */ /* get a `real' for scm_angle */ second = scm_istr2flo (&str[i], (long) (len - i), radix); - if (!SCM_SLOPPY_INEXACTP (second)) + if (!SCM_INEXACTP (second)) return SCM_BOOL_F; /* not `real' */ if (SCM_SLOPPY_COMPLEXP (second)) return SCM_BOOL_F; /* not `real' */