From 56a3841aa8ffe0c7323877f267ad3057f96fc72f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 26 Nov 2011 16:33:22 -0700 Subject: [PATCH] fix `print-convert' on cyclic hash key Closes PR 12373 original commit: 0772cdf2e37a6ce4a634704816fef784d19d58cd --- collects/tests/racket/pconvert.rktl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/tests/racket/pconvert.rktl b/collects/tests/racket/pconvert.rktl index 0d2a67f..523a24d 100644 --- a/collects/tests/racket/pconvert.rktl +++ b/collects/tests/racket/pconvert.rktl @@ -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 ()