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/srfi-228.scm | |
| parent | Add tests based on examples. Move. (diff) | |
Drop `comparison-procedures'.
It's no longer mentioned in the document.
Diffstat (limited to 'srfi/srfi-228.scm')
| -rw-r--r-- | srfi/srfi-228.scm | 8 |
1 files changed, 0 insertions, 8 deletions
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)))) |