[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".

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))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]