Drop `comparison-procedures'.

It's no longer mentioned in the document.

2 files changed, 1 insertions, 10 deletions

diff --git a/srfi/228.sld b/srfi/228.sld
index dfffd3e..834f1ce 100644
--- a/srfi/228.sld
+++ b/srfi/228.sld
@@ -5,6 +5,5 @@
 	  (srfi 151))
   (export make-wrapper-comparator
           make-product-comparator
-          make-sum-comparator
-          comparison-procedures)
+          make-sum-comparator)
   (include "srfi-228.scm"))
diff --git a/srfi/srfi-228.scm b/srfi/srfi-228.scm
index 1591fbc..62dd3e2 100644
--- a/srfi/srfi-228.scm
+++ b/srfi/srfi-228.scm
@@ -83,11 +83,3 @@
                           comparators)))
            ((comparator-hash-function cmp) x)))
        #f)))
-
-(define (comparison-procedures comparator)
-  (values
-   (lambda args (apply <? comparator args))
-   (lambda args (apply <=? comparator args))
-   (lambda args (apply =? comparator args))
-   (lambda args (apply >=? comparator args))
-   (lambda args (apply >? comparator args))))