diff options
| author |  Arthur A. Gleckler
| 2022-11-14 15:48:05 -0800 |
|---|---|---|
| committer | Arthur A. Gleckler
| 2022-11-14 15:48:05 -0800 |
| commit | 38cf6bf401b5cb97b6eaa0dc958fb27e6c0266ac (patch) | |
| tree | 8cf543796fdcc162d5c8738760e4f2fd2c352345 /srfi | |
| parent | Add tests based on examples. Move. (diff) | |
Drop `comparison-procedures'.
It's no longer mentioned in the document.
Diffstat (limited to '')
| -rw-r--r-- | srfi/228.sld | 3 | ||||
| -rw-r--r-- | srfi/srfi-228.scm | 8 |
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)))) |