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