[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-67-g73b9802

[Mark H Weaver]

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=73b98028f0bbc5acf98dfc55ac4130e2fc33bcc0

The branch, stable-2.0 has been updated
       via  73b98028f0bbc5acf98dfc55ac4130e2fc33bcc0 (commit)
      from  9ea816f54a3cc2216eac45c6238fa06448d824df (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 73b98028f0bbc5acf98dfc55ac4130e2fc33bcc0
Author: Mark H Weaver <address@hidden>
Date:   Mon Aug 12 18:08:59 2013 -0400

    Numerical comparisons are not negatable.
    
    * module/language/tree-il/primitives.scm (*negatable-primitives*):
      Remove (< <= > >=) from the list of negatable primitives.

-----------------------------------------------------------------------

Summary of changes:
 module/language/tree-il/primitives.scm |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/module/language/tree-il/primitives.scm 
b/module/language/tree-il/primitives.scm
index bac3136..43f0fb4 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -195,8 +195,7 @@
 (define *negatable-primitives*
   '((even? . odd?)
     (exact? . inexact?)
-    (< . >=)
-    (> . <=)
+    ;; (< <= > >=) are not negatable because of NaNs.
     (char<? . char>=?)
     (char>? . char<=?)))
 


hooks/post-receive
-- 
GNU Guile