diff options
author | Mark H Weaver <mhw@netris.org> | 2013-08-12 18:08:59 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-08-12 18:08:59 -0400 |
commit | 73b98028f0bbc5acf98dfc55ac4130e2fc33bcc0 (patch) | |
tree | c62e298e5b29931991e005340a9a375656219aef | |
parent | 9ea816f54a3cc2216eac45c6238fa06448d824df (diff) | |
download | guile-73b98028f0bbc5acf98dfc55ac4130e2fc33bcc0.tar.gz |
Numerical comparisons are not negatable.
* module/language/tree-il/primitives.scm (*negatable-primitives*):
Remove (< <= > >=) from the list of negatable primitives.
-rw-r--r-- | 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 bac3136e3..43f0fb409 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<=?))) |