21 lines
1.0 KiB
Scheme
21 lines
1.0 KiB
Scheme
#!r6rs
|
|
(library (srfi srfi-128)
|
|
(export comparator? comparator-ordered? comparator-hashable? make-comparator
|
|
make-pair-comparator make-list-comparator make-vector-comparator
|
|
make-eq-comparator make-eqv-comparator make-equal-comparator
|
|
boolean-hash char-hash char-ci-hash string-hash string-ci-hash
|
|
symbol-hash number-hash make-default-comparator default-hash
|
|
comparator-register-default! comparator-type-test-predicate
|
|
comparator-equality-predicate comparator-ordering-predicate
|
|
comparator-hash-function comparator-test-type comparator-check-type
|
|
comparator-hash hash-bound hash-salt =? <? >? <=? >=?
|
|
comparator-if<=>)
|
|
(import (except (rnrs) define-record-type)
|
|
(srfi :99)
|
|
(srfi :39)
|
|
(only (rnrs r5rs) modulo)
|
|
(srfi private include))
|
|
(define (exact-integer? x) (and (integer? x) (exact? x)))
|
|
(include/resolve ("srfi" "%3a128") "128.body1.scm")
|
|
(include/resolve ("srfi" "%3a128") "128.body2.scm"))
|