Commit | Line | Data |
---|---|---|
8175a07e AR |
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 | |
8175a07e AR |
80 | symbol-compare |
81 | vector-compare | |
82 | vector-compare-as-list) | |
eb0b45fa | 83 | #:replace (string-compare string-compare-ci) |
8175a07e AR |
84 | #:use-module (srfi srfi-27)) |
85 | ||
edb6de0b MW |
86 | (cond-expand-provide (current-module) '(srfi-67)) |
87 | ||
8175a07e | 88 | (include-from-path "srfi/srfi-67/compare.scm") |