weak hashtable weakness both is not weak

[Takashi Kato]

This should return gone

(import (rnrs) (sagittarius))

;;(define wh (make-weak-eqv-hashtable :weakness 'key))
(define wh (make-weak-eqv-hashtable))

(weak-hashtable-set! wh (string->symbol "boo") #t)
(gc)
(weak-hashtable-ref wh (string->symbol "boo") 'gone)

but #t.

NOTE: if explicitly specify weakness key, then it returns gone

[Takashi Kato]

Well, it works fine so must like timing issue.