test for weak + struct bug

[Han-Wen Nienhuys]

here is a shorter test case for Kevin's bug, in case anyone is
interested in adding it to the test suite. The display should be
replaced by a suitable check.

        (define rec-type (make-record-type "foo" '()))
        (define h (make-weak-value-hash-table 61))
        (hash-set! h "foo" ((record-constructor rec-type)))
        (gc)
        (display (hash-ref h "foo"))


-- 

 Han-Wen Nienhuys   |   address@hidden   |   http://www.xs4all.nl/~hanwen