From da7a525452d234d2e1101b836011c2bcd769b6a0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 9 Mar 2013 19:00:53 -0600 Subject: [PATCH] oops (and the bigger mystery is why this didn't signal an error when I ran the tests) --- collects/tests/plai/gc2/roots-test.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/plai/gc2/roots-test.rkt b/collects/tests/plai/gc2/roots-test.rkt index 0ac18db88e..04d22b1bb2 100644 --- a/collects/tests/plai/gc2/roots-test.rkt +++ b/collects/tests/plai/gc2/roots-test.rkt @@ -41,7 +41,7 @@ that the test cases have to be set up somewhat carefully. (heap-set! (+ 1 heap-ptr) code) (for ([v (in-list vs)] [i (in-naturals 1)]) - (heap-set! (+ 1 i heap-ptr) (heap-ref v))) + (heap-set! (+ 1 i heap-ptr) (read-root v))) (set! heap-ptr (+ len 2 heap-ptr)) ;; return the location of this flat data (- heap-ptr len 2))