* Fixed bugs in the just-added $fp comparison primitives.

2007-06-15 12:38:30 +03:00 · 2007-06-15 12:38:30 +03:00 · e51def62c1
parent 3f3767800d
commit e51def62c1
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/libaltcogen.ss
+++ b/src/libaltcogen.ss
@ -2543,7 +2543,7 @@
             [(assq x '([= je] [!= jne] [< jl] [<= jle] [> jg] [>= jge]
                        [u< jb] [u<= jbe] [u> ja] [u>= jae]
                        [fl:= je] [fl:!= jne]
-                        [fl:< jl] [fl:> jg] [fl:<= jle] [fl:>= jge]))
+                        [fl:< jb] [fl:> ja] [fl:<= jbe] [fl:>= jae]))
              => cadr]
             [else (error who "invalid jmpname ~s" x)]))
         (define (revjmpname x)