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

Fix crippling error in gc2

Browse Source
This commit is contained in:
Jay McCarthy 2013-11-07 12:51:07 -07:00
parent e3fab53ef7
commit acbc80edd9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plai/gc2/mutator.rkt
View File

@ -271,7 +271,7 @@
(λ (v) (set! this-loc v) (λ (v) (set! this-loc v)
(this-setter v) (this-setter v)
(for ([root (in-list this-other-roots)]) (for ([root (in-list this-other-roots)])
(set-root! v)))) (set-root! root v))))
closure-roots))]))) closure-roots))])))
(parameterize ([active-roots remaining-roots]) (parameterize ([active-roots remaining-roots])
(collector:closure closure (reverse closure-roots)))) (collector:closure closure (reverse closure-roots))))