fix hashingHEADmaster

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?