Chez Scheme: fix $describe-fasl-from-port with cycles

2020-11-22 15:21:44 -07:00 · 2020-11-22 15:21:44 -07:00 · 8751e5b75f
commit 8751e5b75f
parent 3ccb523f1a
1 changed files with 6 additions and 3 deletions
--- a/racket/src/ChezScheme/s/strip.ss
+++ b/racket/src/ChezScheme/s/strip.ss
@ -730,9 +730,12 @@
              [else
               (let ([p (eq-hashtable-cell ht x #f)])
                 (or (cdr p)
-                     (let ([v (describe-next x)])
-                       (set-cdr! p v)
-                       v)))]))
+                     (let ([self (vector 'CYCLE #f)])
+                       (set-cdr! p self)
+                       (let ([v (describe-next x)])
+                         (vector-set! self 1 v)
+                         (set-cdr! p v)
+                         v))))]))
          (define (describe-next x)
            (fasl-case x
              [entry (situation fasl)