[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-65-g91db4a
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-65-g91db4a3 |
Date: |
Sat, 03 Sep 2011 20:53:45 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=91db4a375cb9adc8f3a47f0355c3e6566b9acebf
The branch, stable-2.0 has been updated
via 91db4a375cb9adc8f3a47f0355c3e6566b9acebf (commit)
from 8568067836a7f127b18833a00d6bfc0509fa31ef (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 91db4a375cb9adc8f3a47f0355c3e6566b9acebf
Author: Ludovic Courtès <address@hidden>
Date: Sat Sep 3 22:53:36 2011 +0200
Fix misdiagnoses of deprecated `+nan.[^0]' forms.
* libguile/numbers.c (mem2ureal): Check the result of `mem2uinteger'
against `SCM_INUM0', not 0.
(mem2uinteger): Add comment.
-----------------------------------------------------------------------
Summary of changes:
libguile/numbers.c | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
diff --git a/libguile/numbers.c b/libguile/numbers.c
index a9c0125..b01af9f 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -5445,6 +5445,9 @@ char_decimal_value (scm_t_uint32 c)
return d;
}
+/* Parse the substring of MEM starting at *P_IDX for an unsigned integer
+ in base RADIX. Upon success, return the unsigned integer and update
+ *P_IDX and *P_EXACTNESS accordingly. Return #f on failure. */
static SCM
mem2uinteger (SCM mem, unsigned int *p_idx,
unsigned int radix, enum t_exactness *p_exactness)
@@ -5716,7 +5719,7 @@ mem2ureal (SCM mem, unsigned int *p_idx,
/* Cobble up the fractional part. We might want to set the
NaN's mantissa from it. */
idx += 4;
- if (mem2uinteger (mem, &idx, 10, &implicit_x) != 0)
+ if (!scm_is_eq (mem2uinteger (mem, &idx, 10, &implicit_x), SCM_INUM0))
{
#if SCM_ENABLE_DEPRECATED == 1
scm_c_issue_deprecation_warning
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.2-65-g91db4a3,
Ludovic Courtès <=