mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Numerical comparisons are not negatable.

Browse source 
* module/language/tree-il/primitives.scm (*negatable-primitives*):
  Remove (< <= > >=) from the list of negatable primitives.
This commit is contained in:
Mark H Weaver 2013-08-12 18:08:59 -04:00
parent 9ea816f54a
commit 73b98028f0
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/tree-il/primitives.scm
View file

@ -195,8 +195,7 @@
(define *negatable-primitives* (define *negatable-primitives*
'((even? . odd?) '((even? . odd?)
(exact? . inexact?) (exact? . inexact?)
(< . >=) ;; (< <= > >=) are not negatable because of NaNs.
(> . <=)
(char<? . char>=?) (char<? . char>=?)
(char>? . char<=?))) (char>? . char<=?)))