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

fix `print-convert' on cyclic hash key

Browse Source 
Closes PR 12373

original commit: 0772cdf2e37a6ce4a634704816fef784d19d58cd
This commit is contained in:
Matthew Flatt 2011-11-26 16:33:22 -07:00
parent 4c1e4fd288
commit 56a3841aa8
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/racket/pconvert.rktl
View File

@ -319,7 +319,15 @@
(-4- `(1 . ,-5-))
(-5- `(2 3))
(-8- `(,-4- ,-5- (2 3))))
-0-))))
-0-))
(make-pctest (read (open-input-string "#hasheq((#0=(1 . #0#) . a))"))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- `(1 unquote -1-))) (make-hasheq (list (cons -1- 'a))))
'(shared ((-1- (cons 1 -1-))) (make-hasheq (list (cons -1- 'a)))))))
(for-each run-test tests))
(let ()