diff options
| author |  Peter McGoron
| 2025-07-16 11:10:53 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-07-16 11:10:53 -0400 |
| commit | 6dafb95155f2125a4bc2c81a4a1bb191b8eca828 (patch) | |
| tree | e850ae64e9b7668a86b74f62b439f5850b652b2e /srfi/srfi-228.scm | |
| parent | fix forgejo breakage (diff) | |
Diffstat (limited to 'srfi/srfi-228.scm')
| -rw-r--r-- | srfi/srfi-228.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/srfi/srfi-228.scm b/srfi/srfi-228.scm index 139093f..3d9b22f 100644 --- a/srfi/srfi-228.scm +++ b/srfi/srfi-228.scm @@ -13,7 +13,8 @@ #f) (if (comparator-hash-function contents-comparator) (lambda (x) - ((comparator-hash-function contents-comparator) x)) + ((comparator-hash-function contents-comparator) + (unwrap x))) #f))) (define (make-product-comparator . comparators) |