Failing test

collects/tests/plai/gc/good-mutators/let-star.rkt

@@ -0,0 +1,9 @@
+#lang plai/mutator
+(allocator-setup "../good-collectors/good-collector.rkt" 4)
+
+(define (go)
+  (let ([obj 'z])
+    2 3
+    (symbol? obj)))
+
+(go)

collects/tests/plai/test-random-mutator.rkt

@@ -15,6 +15,8 @@
 ;; returns true if evaluating the example code (as a mutator)
 ;; returns one result at the top-level, namely the symbol 'passed.
 (define (test-code exps)
+  (printf "Test code\n")
+  (for-each pretty-print exps)
   (let ([tmpfile (make-temporary-file "plai-random-mutator-test-~a")])
     (call-with-output-file tmpfile
       (λ (port)