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

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

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-22 15:21:44 -07:00
parent 3ccb523f1a
commit 8751e5b75f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/src/ChezScheme/s/strip.ss
View File

@ -730,9 +730,12 @@
[else [else
(let ([p (eq-hashtable-cell ht x #f)]) (let ([p (eq-hashtable-cell ht x #f)])
(or (cdr p) (or (cdr p)
(let ([v (describe-next x)]) (let ([self (vector 'CYCLE #f)])
(set-cdr! p v) (set-cdr! p self)
v)))])) (let ([v (describe-next x)])
(vector-set! self 1 v)
(set-cdr! p v)
v))))]))
(define (describe-next x) (define (describe-next x)
(fasl-case x (fasl-case x
[entry (situation fasl) [entry (situation fasl)