module/srfi/srfi-67.scm

   1 ;;; srfi-67.scm --- Compare Procedures
   2
   3 ;; Copyright (C) 2010 Free Software Foundation, Inc.
   4
   5 ;; This library is free software; you can redistribute it and/or
   6 ;; modify it under the terms of the GNU Lesser General Public
   7 ;; License as published by the Free Software Foundation; either
   8 ;; version 3 of the License, or (at your option) any later version.
   9
  10 ;; This library is distributed in the hope that it will be useful,
  11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 ;; Lesser General Public License for more details.
  14
  15 ;; You should have received a copy of the GNU Lesser General Public
  16 ;; License along with this library. If not, see
  17 ;; <http://www.gnu.org/licenses/>.
  18
  19 ;;; Commentary:
  20
  21 ;; This module is not yet documented in the Guile Reference Manual.
  22
  23 ;;; Code:
  24
  25 (define-module (srfi srfi-67)
  26   #:export (</<=?
  27             </<?
  28             <=/<=?
  29             <=/<?
  30             <=?
  31             <?
  32             =?
  33             >/>=?
  34             >/>?
  35             >=/>=?
  36             >=/>?
  37             >=?
  38             >?
  39             boolean-compare
  40             chain<=?
  41             chain<?
  42             chain=?
  43             chain>=?
  44             chain>?
  45             char-compare
  46             char-compare-ci
  47             compare-by<
  48             compare-by<=
  49             compare-by=/<
  50             compare-by=/>
  51             compare-by>
  52             compare-by>=
  53             complex-compare
  54             cond-compare
  55             debug-compare
  56             default-compare
  57             if-not=?
  58             if3
  59             if<=?
  60             if<?
  61             if=?
  62             if>=?
  63             if>?
  64             integer-compare
  65             kth-largest
  66             list-compare
  67             list-compare-as-vector
  68             max-compare
  69             min-compare
  70             not=?
  71             number-compare
  72             pair-compare
  73             pair-compare-car
  74             pair-compare-cdr
  75             pairwise-not=?
  76             rational-compare
  77             real-compare
  78             refine-compare
  79             select-compare
  80             symbol-compare
  81             vector-compare
  82             vector-compare-as-list)
  83   #:replace (string-compare string-compare-ci)
  84   #:use-module (srfi srfi-27))
  85
  86 (cond-expand-provide (current-module) '(srfi-67))
  87
  88 (include-from-path "srfi/srfi-67/compare.scm")