diff --git a/srfi/128.sld b/srfi/128.sld index 9476378b..713ffb0e 100644 --- a/srfi/128.sld +++ b/srfi/128.sld @@ -18,6 +18,22 @@ (export =? ? <=? >=?) (export comparator-if<=>) (export %salt%) ;; Temporary workaround since we cannot preserve referential transparency for this + (export comparator-max-in-list comparator-min-in-list + comparator-max comparator-min + default-comparator + boolean-comparator + real-comparator + char-comparator + char-ci-comparator + string-comparator + string-ci-comparator + pair-comparator + list-comparator + vector-comparator + eq-comparator + eqv-comparator + equal-comparator) (include "comparators/comparators-impl.scm") (include "comparators/default.scm") + (include "comparators/162-impl.scm") )