From 3f5a45e90427052a866c1e41b26c7726c2dc04ab Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 20 Feb 2012 10:59:57 -0600 Subject: [PATCH] fix broken vector->roots --- collects/plai/gc2/private/gc-core.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/plai/gc2/private/gc-core.rkt b/collects/plai/gc2/private/gc-core.rkt index 31661478d2..3bcb4bd559 100644 --- a/collects/plai/gc2/private/gc-core.rkt +++ b/collects/plai/gc2/private/gc-core.rkt @@ -174,7 +174,7 @@ (make-root 'vector (λ () (vector-ref v i)) - (λ (ne) (vector-set! v ne))))) + (λ (ne) (vector-set! v i ne))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Environments of closures