Done. Thanks -- the test patch is updated since my last email here,
because somehow when writing those tests (but not the resize ones!) I
failed to realize about the second argument being assoc. Sorry 'bout that.
I think this gets me somewhat back on the road. I just need to make a
really big hash table.
Thanks,
Grem
Gregory Marton <[EMAIL PROTECTED]> writes:
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
The second arg to hashx-set! and hashx-ref is supposed to be like
assoc/assq/assv, not equal?/eqv?/eq?. So...
guile> (let ((ht (make-hash-table)))
(hashx-set! (lambda (k s) 1) assoc ht 'foo 'bar)
(hashx-ref (lambda (k s) 1) assoc 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
That definitely shouldn't happen, though. Would you mind raising this
as a bug at Guile's Savannah project, for ease of tracking, and attach
the test patch that reproduces it (for which many thanks!).
Regards,
Neil
--
------ __@ Gregory A. Marton http://csail.mit.edu/~gremio/
--- _`\<,_ .
-- (*)/ (*) Never go to bed mad. Stay up and fight!
~~~~~~~~~~~~~~~~-~~~~~~~~_~~~_~~~~~v~~~~^^^^~~~~~--~~~~~~~~~~~~~~~++~~~~~~~
