Fix pconvert of hashtables.

svn: r18414

original commit: 1c1a2dde383ead9988340c00bdf65e3e9bf00906
This commit is contained in:
Sam Tobin-Hochstadt 2010-03-01 20:27:55 +00:00
parent 4bdaa3c7c5
commit 28d012d43b

View File

@ -205,13 +205,13 @@
(make-same-test (case-lambda [() 'a] [(x y z) 'a] [x 'a])
'(case-lambda [() ...] [(a1 a2 a3) ...] [args ...]))
(make-same-test (make-hasheq)
'(hasheq))
'(make-hasheq))
(make-same-test (make-weak-hasheq)
'(weak-hasheq))
'(make-weak-hasheq))
(make-same-test (make-hash)
'(make-hash))
(make-same-test (make-weak-hash)
'(weak-hash))
'(make-weak-hash))
(make-same-test (let ([ht (make-hash)])
(hash-set! ht 'x 1)
ht)