Fix crippling error in gc2

2013-11-07 12:51:07 -07:00 · 2013-11-07 12:51:07 -07:00 · acbc80edd9
commit acbc80edd9
parent e3fab53ef7
1 changed files with 1 additions and 1 deletions
--- a/pkgs/plai/gc2/mutator.rkt
+++ b/pkgs/plai/gc2/mutator.rkt
@ -271,7 +271,7 @@
                                (λ (v) (set! this-loc v)
                                   (this-setter v)
                                   (for ([root (in-list this-other-roots)])
-                                     (set-root! v))))
+                                     (set-root! root v))))
                     closure-roots))])))
  (parameterize ([active-roots remaining-roots])
    (collector:closure closure (reverse closure-roots))))