diff options
| -rw-r--r-- | srfi-228.egg | 2 | ||||
| -rw-r--r-- | srfi-228.release-info | 3 | ||||
| -rw-r--r-- | srfi/srfi-228.scm | 3 | ||||
| -rw-r--r-- | tests/run.scm | 5 |
4 files changed, 10 insertions, 3 deletions
diff --git a/srfi-228.egg b/srfi-228.egg index 46dbc36..a887829 100644 --- a/srfi-228.egg +++ b/srfi-228.egg @@ -1,6 +1,6 @@ ((author "Daphne Preston-Kendal") (maintainer "Peter McGoron") - (version "1.0.0") + (version "1.0.1") (synopsis "Composing Comparators") (category data) (license "MIT") diff --git a/srfi-228.release-info b/srfi-228.release-info index 0cd05ca..0ee0b9e 100644 --- a/srfi-228.release-info +++ b/srfi-228.release-info @@ -1,3 +1,4 @@ (repo git "https://software.mcgoron.com/peter/srfi-228") -(uri targz "https://files.mcgoron.com/chicken/srfi-228/1.0.0.tar.gz") +(uri targz "https://files.mcgoron.com/chicken/srfi-228/{egg-release}-{chicken-release}.tar.gz") +(release "1.0.1") (release "1.0.0") 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) diff --git a/tests/run.scm b/tests/run.scm index 5681733..e1dfc9a 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -38,6 +38,11 @@ (make-person "Tom" "Smith") (make-person "John" "Smith")))) +(test-group "hashing" + (test-assert + (= (comparator-hash person-name-comparator (make-person "Tom" "Smith")) + (comparator-hash person-name-comparator (make-person "Tom" "smith"))))) + (define-record-type Book (make-book author title) book? |