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

* Fixed two bugs in the ratnum case of mk< procs.

This commit is contained in:
Abdulaziz Ghuloum 2007-06-13 06:04:08 +03:00
parent 5f1b44106a
commit 83c7fe71b8
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

8
src/ikarus.numerics.ss
View File

@ -975,7 +975,7 @@
(if (flfl< x y)
(flloopt y (car ls) (cdr ls))
(loopf (car ls) (cdr ls))))]
[(flonum? y)
[(ratnum? y)
(if (null? ls)
(flrt< x y)
(if (flrt< x y)
@ -1003,7 +1003,7 @@
(if (rtfl< x y)
(flloopt y (car ls) (cdr ls))
(loopf (car ls) (cdr ls))))]
[(flonum? y)
[(ratnum? y)
(if (null? ls)
(rtrt< x y)
(if (rtrt< x y)
@ -1014,7 +1014,9 @@
(lambda (x ls)
(cond
[(number? x)
(or (null? ls) (loopf (car ls) (cdr ls)))]
(if (null? ls)
#f
(loopf (car ls) (cdr ls)))]
[else (err x)])))
(define f
(case-lambda