clean up mistakes in 21807d3

- remove bogus test case
- fix bug in collector
- fix bug in test

pkgs/plai/tests/gc2/good-collectors/trivial-moving-collector.rkt

@@ -32,7 +32,7 @@ allocation
         [(closure)
          (define size (heap-ref (+ addr 2)))
          (for ([i (in-range size)])
-           (inc-at-addr (+ addr 2 i)))
+           (inc-at-addr (+ addr 3 i)))
          (loop (+ addr size 3))]
         [(prim)
          (loop (+ addr 2))]
@@ -115,16 +115,3 @@ allocation
 ; function number -> boolean
 (define (gc:flat? a)
   (eq? 'prim (heap-ref a)))
-
-(module+ test
-  (require rackunit)
-  
-  (check-equal? (let ([h (make-vector 7)])
-                  (with-heap 
-                   h
-                   (init-allocator)
-                   (define one (gc:alloc-flat 1))
-                   (define clos (gc:closure 'something (list (make-root 'dummy (λ () one) void))))
-                   (gc:alloc-flat 2))
-                  h)
-                (vector 'prim 1 'closure 'something 0 'prim 2)))

pkgs/plai/tests/gc2/good-mutators/test-moving.rkt

@@ -1,5 +1,5 @@
 #lang plai/gc2/mutator
-(allocator-setup "../good-collectors/trivial-moving-collector.rkt" 40)
+(allocator-setup "../good-collectors/trivial-moving-collector.rkt" 100)
 
 ;; just some random allocation here
 ;; this is really about testing 
@@ -16,4 +16,5 @@
   ((let ([x (cons 1 2)])
      (λ (y)
        ((first y) (first x))))
-   (λ (z) z)))
+   (cons (λ (z) z)
+         5)))