Fix pconvert of hashtables.
svn: r18414 original commit: 1c1a2dde383ead9988340c00bdf65e3e9bf00906
This commit is contained in:
parent
4bdaa3c7c5
commit
28d012d43b
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user