From acbc80edd905ce91fde764c0897bd658e04e3b29 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 7 Nov 2013 12:51:07 -0700 Subject: [PATCH] Fix crippling error in gc2 --- pkgs/plai/gc2/mutator.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/plai/gc2/mutator.rkt b/pkgs/plai/gc2/mutator.rkt index 0fc235cc5a..3cb1687291 100644 --- 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))))