bug#13022: hash-table accessors no longer work on vectors

[Daniel Hartwig]

Straight out of (guile) Hash Table Examples:

scheme@(guile-user)> (define h (make-vector 7 '()))
scheme@(guile-user)> (hashq-set! h 'foo "bar")
ERROR: In procedure hashq-set!:
ERROR: In procedure scm_hash_fn_create_handle_x: Wrong type argument in 
position 1 (expecting hash-table): #(() () () () () () ())