conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Abdulaziz Ghuloum 2007-06-15 12:38:30 +03:00
parent 3f3767800d
commit e51def62c1
2 changed files with 1 additions and 1 deletions

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/libaltcogen.ss
View File

@ -2543,7 +2543,7 @@
[(assq x '([= je] [!= jne] [< jl] [<= jle] [> jg] [>= jge] [(assq x '([= je] [!= jne] [< jl] [<= jle] [> jg] [>= jge]
[u< jb] [u<= jbe] [u> ja] [u>= jae] [u< jb] [u<= jbe] [u> ja] [u>= jae]
[fl:= je] [fl:!= jne] [fl:= je] [fl:!= jne]
[fl:< jl] [fl:> jg] [fl:<= jle] [fl:>= jge])) [fl:< jb] [fl:> ja] [fl:<= jbe] [fl:>= jae]))
=> cadr] => cadr]
[else (error who "invalid jmpname ~s" x)])) [else (error who "invalid jmpname ~s" x)]))
(define (revjmpname x) (define (revjmpname x)