Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

default comparator compares numbers with = (issue #459)

Browse source
This commit is contained in:
Alex Shinn 2018-03-10 11:11:59 +09:00
parent d07170d6c3
commit e4cc2dd33c
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/128/comparators.scm
View file

@ -178,7 +178,9 @@
(lambda (x y) (lambda (x y)
(let lp ((ls (default-comparators))) (let lp ((ls (default-comparators)))
(cond ((null? ls) (cond ((null? ls)
(equal? x y)) (if (number? x)
(and (number? y) (= x y))
(equal? x y)))
((and (comparator-test-type (car ls) x) ((and (comparator-test-type (car ls) x)
(comparator-test-type (car ls) y)) (comparator-test-type (car ls) y))
((comparator-equality-predicate (car ls)) x y)) ((comparator-equality-predicate (car ls)) x y))

2
lib/srfi/128/test.sld
View file

@ -155,6 +155,8 @@
(test-assert (not (<? default-comparator #t #t))) (test-assert (not (<? default-comparator #t #t)))
(test-assert (=? default-comparator #\a #\a)) (test-assert (=? default-comparator #\a #\a))
(test-assert (<? default-comparator #\a #\b)) (test-assert (<? default-comparator #\a #\b))
(test-assert (=? default-comparator 1 1))
(test-assert (=? default-comparator 1 1.0))
(test-assert (comparator-test-type default-comparator '())) (test-assert (comparator-test-type default-comparator '()))
(test-assert (comparator-test-type default-comparator #t)) (test-assert (comparator-test-type default-comparator #t))