guile/module/srfi/srfi-128.scm

;;; srfi-128.scm -- SRFI 128 - Comparators.
;;; Adapted from srfi-128.sld.

;;      Copyright (C) 2023 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 3 of the License, or (at your option) any later version.
;;
;; This library is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

(define-module (srfi srfi-128)
  #:use-module ((rnrs base) :version (6) #:hide (error))
  #:use-module (rnrs bytevectors)
  #:use-module ((rnrs hashtables) #:select (equal-hash))
  #:use-module ((rnrs unicode) :version (6))
  #:use-module (srfi srfi-9)

  #: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-ci-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<=>)

  #:replace (string-hash symbol-hash))

(include-from-path "srfi/srfi-128/128.body1.scm")
(include-from-path "srfi/srfi-128/128.body2.scm")