Welcome to the CHICKEN Scheme pasting service
Incorrect hash-table-size for copied hash tables added by jacius on Mon Jul 16 01:06:28 2012
$ csi CHICKEN (c)2008-2011 The Chicken Team (c)2000-2007 Felix L. Winkelmann Version 4.7.0 linux-unix-gnu-x86 [ manyargs dload ptables ] compiled 2012-05-14 on sepiida (Linux) ; loading ./.csirc ... ; loading /usr/local/lib/chicken/6/readline.import.so ... ; loading /usr/local/lib/chicken/6/scheme.import.so ... ; loading /usr/local/lib/chicken/6/chicken.import.so ... ; loading /usr/local/lib/chicken/6/foreign.import.so ... ; loading /usr/local/lib/chicken/6/ports.import.so ... ; loading /usr/local/lib/chicken/6/data-structures.import.so ... ; loading /usr/local/lib/chicken/6/posix.import.so ... ; loading /usr/local/lib/chicken/6/readline.so ... #;1> (use srfi-69) ; loading library srfi-69 ... #;2> (define h1 (alist->hash-table '((0 . 1) (2 . 3) (4 . 5)))) #;3> h1 #<hash-table (3)> #;4> (define h2 (hash-table-copy h1)) #;5> h2 #<hash-table (0)> #;6> (hash-table->alist h2) ((4 . 5) (2 . 3) (0 . 1)) #;7> (hash-table-size h2) 0 #;8> (hash-table-set! h2 6 7) #;9> (hash-table->alist h2) ((6 . 7) (4 . 5) (2 . 3) (0 . 1)) #;10> (hash-table-size h2) 1