suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix pconvert of hashtables.

Browse Source 
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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/mzscheme/pconvert.ss
View File

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