crossing out a few hash functions from my todo list

compiler/kernel-primitives.rkt

@@ -90,6 +90,8 @@
                                     'prop:exn:srclocs
 
                                     'hash?
+                                    'hash-eq?
+                                    'hash-eqv?
                                     'make-hash
                                     'make-hasheqv
                                     'make-hasheq

js-assembler/runtime-src/baselib-hashes.js

@@ -349,11 +349,11 @@
     };
 
     var isHashEqv = function (x) { 
-        return (x instanceof WhalesongHashtable || x instanceof WhalesongImmutableHashtable) && x.type === 'eqv';
+        return (x instanceof WhalesongHashtable || x instanceof WhalesongImmutableHashtable) && x.type === 'hasheqv';
     };
 
     var isHashEq = function (x) { 
-        return (x instanceof WhalesongHashtable || x instanceof WhalesongImmutableHashtable) && x.type === 'eq';
+        return (x instanceof WhalesongHashtable || x instanceof WhalesongImmutableHashtable) && x.type === 'hasheq';
     };
 
 

js-assembler/runtime-src/baselib-primitives.js

@@ -2516,6 +2516,19 @@
         function(M) {
             return baselib.hashes.isHash(checkAny(M, 'hash?', 0));
         });
+    installPrimitiveProcedure(
+        'hash-eq?',
+        1,
+        function(M) {
+            return baselib.hashes.isHashEq(checkAny(M, 'hash-eq?', 0));
+        });
+    installPrimitiveProcedure(
+        'hash-eqv?',
+        1,
+        function(M) {
+            return baselib.hashes.isHashEqv(checkAny(M, 'hash-eqv?', 0));
+        });
+
 
     installPrimitiveProcedure(
         'make-hasheq',

lang/kernel.rkt

@@ -150,6 +150,8 @@
 	 with-continuation-mark
 
          hash?
+         hash-eq?
+         hash-eqv?
          make-hash
          make-hasheqv
          make-hasheq

tests/more-tests/hashes.expected

@@ -21,6 +21,15 @@ not-found
 1
 1
 1
+true
+true
+true
+false
+true
+false
+false
+false
+true
 danny
 dyoo@hashcollision.org
 unknown

tests/more-tests/hashes.rkt

@@ -64,6 +64,15 @@
 (hash-ref ht "test!")
 
 
+(hash? (make-immutable-hash))
+(hash? (make-immutable-hasheq))
+(hash? (make-immutable-hasheqv))
+(hash-eq? (make-immutable-hash))
+(hash-eq? (make-immutable-hasheq))
+(hash-eq? (make-immutable-hasheqv))
+(hash-eqv? (make-immutable-hash))
+(hash-eqv? (make-immutable-hasheq))
+(hash-eqv? (make-immutable-hasheqv))
 (let* ([ht (make-immutable-hash)]
        [ht (hash-set ht 'name "danny")]
        [ht (hash-set ht 'email "dyoo@hashcollision.org")])