hashx -set! and -ref

[Gregory Marton]

I may be misunderstanding something, but I thought this should yield 'bar:

guile> (let ((ht (make-hash-table)))
         (hashx-set! (lambda (k s) 1) equal? ht 'foo 'bar)
         (hashx-ref (lambda (k s) 1) equal? ht 'foo))

#f
guile> (version)
"1.8.1"

much as this does:
guile> (let ((ht (make-hash-table)))
         (hash-set! ht 'foo 'bar)
         (hash-ref ht 'foo))
bar

I thought perhaps the problem was with the equality test somehow, but then 
even worse:
guile> (let ((ht (make-hash-table)))
         (hashx-set! (lambda (k s) 1) (lambda (a b) #t) ht 'foo 'bar)
         (hashx-ref (lambda (k s) 1) (lambda (a b) #t) ht 'foo))

Bus error


Thanks much,
Grem

p.s. Ludovic, I haven't forgotten about the module docs -- it's just taking 
me a while to learn what I need.  Sorry.

--
------ __@   Gregory A. Marton                http://csail.mit.edu/~gremio/
--- _`\<,_                                                                .
-- (*)/ (*)              Linux: the choice of a gnu generation.
~~~~~~~~~~~~~~~~-~~~~~~~~_~~~_~~~~~v~~~~^^^^~~~~~--~~~~~~~~~~~~~~~++~~~~~~~