diff options
| author |  Daphne Preston-Kendal
| 2021-04-02 12:25:22 +0200 |
|---|---|---|
| committer | Daphne Preston-Kendal
| 2021-04-02 12:26:50 +0200 |
| commit | 31a92d62ee640a451452ab30a1f629e202f6ff77 (patch) | |
| tree | 561abd2e478964a268ff3ac3f3bc1271d31fa887 | |
| parent | Note that the SRFI number isn’t formally assigned yet. (diff) | |
Fix a stylistic weirdness in code for composed comparator ordering.
| -rw-r--r-- | composing-comparators.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/composing-comparators.scm b/composing-comparators.scm index 1b632c9..8ff1a5c 100644 --- a/composing-comparators.scm +++ b/composing-comparators.scm @@ -31,7 +31,7 @@ (let loop ((cmp (gen))) (cond ((eof-object? cmp) #f) (((comparator-ordering-predicate cmp) a b) #t) - (((comparator-equality-predicate cmp) b a) (loop (gen))) + (((comparator-equality-predicate cmp) a b) (loop (gen))) (else #f))))) #f) (if (every comparator-hash-function comparators) |