[MIT-Scheme-devel] eqv? and eqv-hash disagree on empty vectors

[Taylor R Campbell]

(let ((u (vector))
      (v (vector)))
  (list (list 'eq (eq? u v) (eq-hash u) (eq-hash v) 
              (= (eq-hash u) (eq-hash v)))
        (list 'eqv (eqv? u v) (eqv-hash u) (eqv-hash v)
              (= (eqv-hash u) (eqv-hash v)))))
;Value 15: ((eq #f 107689176 107689168 #f) (eqv #t 107689176 107689168 #f))

Oops.

Why do we treat empty vectors as eqv?  If we do, eqv-hash needs to be
made to agree.