(define table-1 (make-table)) (table-set! table-1 'foo (list 1 2 3 4 5)) (table-ref table-1 'foo #f)
(1 2 3 4 5)
(define table-1-ser (object->u8vector table-1)) (define table-2 (u8vector->object table-1-ser)) (table-ref table-2 'foo #f)
#f
(table->list table-1)
((foo 1 2 3 4 5))
(table->list table-2)
((foo 1 2 3 4 5))
_________________________________________________________________ MSN® Calendar keeps you organized and takes the effort out of scheduling get-togethers. http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI... Start enjoying all the benefits of MSN® Premium right now and get the first two months FREE*.
Afficher les réponses par date
Thanks for the bug report. The problem is now fixed. There was a missing rehashing of the hash table after deserialisation. This bug did not affect eq? hash tables, which were rehashed properly.
Marc
On 18-May-06, at 10:52 AM, Pouex Machinax wrote:
(define table-1 (make-table)) (table-set! table-1 'foo (list 1 2 3 4 5)) (table-ref table-1 'foo #f)
(1 2 3 4 5)
(define table-1-ser (object->u8vector table-1)) (define table-2 (u8vector->object table-1-ser)) (table-ref table-2 'foo #f)
#f
(table->list table-1)
((foo 1 2 3 4 5))
(table->list table-2)
((foo 1 2 3 4 5))
MSN® Calendar keeps you organized and takes the effort out of scheduling get-togethers. http://join.msn.com/?pgmarket=en- ca&page=byoa/prem&xAPID=1994&DI=1034&SU=http://hotmail.com/ enca&HL=Market_MSNIS_Taglines Start enjoying all the benefits of MSN® Premium right now and get the first two months FREE*.
Gambit-list mailing list Gambit-list@iro.umontreal.ca http://mailman.iro.umontreal.ca/mailman/listinfo/gambit-list
-
Marc Feeley -
Pouex Machinax