oops

(and the bigger mystery is why this didn't signal an error when I ran the tests)
2013-03-09 19:00:53 -06:00 · 2013-03-09 19:00:53 -06:00 · da7a525452
commit da7a525452
parent e0aef0a575
1 changed files with 1 additions and 1 deletions
--- 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))