From cbd40899f61c7d71babf05227e9501a71c952ca9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Apr 2019 18:32:43 -0600 Subject: [PATCH] avoid graph references that are especially uncooperative for Racket's reader original commit: 5b864346fd692896ed13fca84a974bc990ed7806 --- s/read.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/s/read.ss b/s/read.ss index ed7a53b61c..a3e6629d40 100644 --- a/s/read.ss +++ b/s/read.ss @@ -1500,15 +1500,15 @@ (let ([ins (cadr a)] [stripped-ins (cddr a)]) (if (eq? stripped-obj stripped-ins) (begin - (insert-obj-set! ins '#1#) - (insert-obj-set! stripped-ins '#1#)) + (insert-obj-set! ins '#1=#1#) + (insert-obj-set! stripped-ins '#2=#2#)) (begin ; remove annotation below mark to avoid redundant annotation (insert-obj-set! ins (annotation-expression obj)) (insert-obj-set! stripped-ins stripped-obj))) (xvalues ins stripped-ins)) (let ([ins (cadr a)]) - (insert-obj-set! ins (if (eq? obj ins) '#1=#1# obj)) + (insert-obj-set! ins (if (eq? obj ins) '#3=#3# obj)) (xvalues ins #f))))]))))) (xdefine (rd-insert n)