Don’t enforce an error for non-eqv? same?-functions in the impl

Author: dpk

srfi/250.sld

@@ -73,10 +73,6 @@
                (else))
 
   (begin
-    (define-syntax not-on-r6rs
-      (syntax-rules ()
-        ((_ body_0 body_1 ...) (begin body_0 body_1 ...))))
-
     (define (void . ignored) (if #f #f))
     (define (hash-truncate h) (bitwise-and (abs h) #xFFFFFFFF))
 

srfi/250/hash-tables.scm

@@ -707,12 +707,6 @@
   ht_1)
 
 (define (hash-table= value=? ht_1 ht_2)
-  (not-on-r6rs
-   (unless (eqv? (hash-table-same?-function ht_1)
-                 (hash-table-same?-function ht_2))
-     (assertion-violation 'hash-table=
-                          "hash tables have different equality predicates"
-                          ht_1 ht_2)))
   (and
    ;; check every association in ht_1 has a corresponding association
    ;; in ht_2

srfi/:250/hash-tables.sls

@@ -71,9 +71,6 @@
           (srfi :250 internal include)
           (srfi :250 internal immutable))
 
-  (define-syntax not-on-r6rs
-    (syntax-rules ()
-      ((_ body_0 body_1 ...) (begin))))
   (define (void . ignored) (if #f #f))
   (define (hash-truncate h) (bitwise-and (abs h) #xFFFFFFFF))
 

srfi/srfi-250.scm

@@ -78,10 +78,6 @@
             hash-table-difference!
             hash-table-xor!))
 
-(define-syntax not-on-r6rs
-  (syntax-rules ()
-    ((_ body_0 body_1 ...) (begin body_0 body_1 ...))))
-
 (define (void . ignored) (if #f #f))
 (define (hash-truncate h) (bitwise-and (abs h) #xFFFFFFFF))
 (define-record-type (hash-table %make-hash-table hash-table?)