;; This file contains the results of running your ;; collector with the three examples files from the ;; assignment, as well as a number of random mutators. ;; The beginning portion of the file contains lines ;; that identify the mutator (L01, L02, and L03 are ;; from the assignment; other numbers are the random ;; seeds used to generate mutators) and whether or ;; not your collector passed the test. If it failed, ;; you see the output it produced, as well as the ;; source text of the mutator. If it passed, you just ;; see "passed" Passed 0 out of 103 tests. L01: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:20/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (define (count-down n) (cond ((zero? n) 0) (else (count-down (- n 1))))) (define (loop n) (if (zero? n) 'passed (begin (count-down 20) (loop (- n 1))))) (loop 1000) ----- mutator cut here ----- L02: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:20/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (define (mk-list n) (cond ((zero? n) '()) (else (cons n (mk-list (- n 1)))))) (define (forever n) (if (zero? n) 'passed (begin (mk-list 10) (forever (- n 1))))) (forever 1000) ----- mutator cut here ----- L03: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:20/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (define (proc-lst n) (cond ((zero? n) (lambda () 0)) (else (let ((n1 (proc-lst (- n 1)))) (lambda () (+ (n1) n)))))) (define (forever n) (if (zero? n) 'passed (begin ((proc-lst 10)) (forever (- n 1))))) (forever 1000) ----- mutator cut here ----- 100: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (cons #f #f)) (x2 (lambda (x) (if (= x 0) x0 x1))) (x3 (cons #f #f)) (x4 (cons x1 #f)) (x5 (cons x3 #f)) (x6 (lambda (x) (if (= x 0) x4 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x5 (if (= x 4) x4 (if (= x 5) x1 (if (= x 6) x5 (if (= x 7) x5 (if (= x 8) x2 x4))))))))))) (x7 #f) (x8 #t) (x9 (lambda (x) (if (= x 0) x6 (if (= x 1) x1 x2))))) (set-first! x1 x1) (set-rest! x1 x7) (set-first! x3 x9) (set-rest! x3 x4) (set-rest! x4 x5) (set-rest! x5 x9) x9)) (define (traverse-one x9) (= 1 ((((first (first ((x9 0) 3))) 0) 8) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 101: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 (if (= x 8) x0 x0))))))))))) (x2 0) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x0 x0)))))) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x2 (if (= x 4) x1 (if (= x 5) x3 (if (= x 6) x0 (if (= x 7) x3 x2)))))))))) (x5 (cons x4 x4)) (x6 (cons x4 #f)) (x7 #t) (x8 #t)) (set-rest! x6 x7) x6)) (define (traverse-one x6) (= 0 (((first x6) 4) 6))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 102: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) x0)) (x2 (cons x0 x1)) (x3 #t) (x4 #t)) x2)) (define (traverse-one x2) (= 0 (first x2))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 103: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f)) (x2 (cons #f #f)) (x3 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 (if (= x 2) x2 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x2 (if (= x 7) x2 (if (= x 8) x2 x0))))))))))) (x4 (cons #f x2)) (x5 (lambda (x) (if (= x 0) x2 (if (= x 1) x0 (if (= x 2) x2 (if (= x 3) x4 (if (= x 4) x1 (if (= x 5) x2 (if (= x 6) x0 (if (= x 7) x0 (if (= x 8) x3 x0))))))))))) (x6 (cons #f x2))) (set-first! x1 x1) (set-rest! x1 x6) (set-first! x2 x6) (set-rest! x2 x6) (set-first! x4 x6) (set-first! x6 x6) x5)) (define (traverse-one x5) (= 0 (x5 6))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 104: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons x0 #f)) (x2 #t) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x2 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x0 x1))))))))) (x4 (cons x2 #f)) (x5 (lambda (x) (if (= x 0) x0 x2))) (x6 (lambda (x) (if (= x 0) x4 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x2 (if (= x 4) x3 (if (= x 5) x1 (if (= x 6) x1 (if (= x 7) x5 (if (= x 8) x1 x3))))))))))) (x7 (lambda (x) (if (= x 0) x5 (if (= x 1) x3 x2)))) (x8 (lambda (x) (if (= x 0) x1 (if (= x 1) x7 (if (= x 2) x7 (if (= x 3) x6 x0))))))) (set-rest! x1 x2) (set-rest! x4 x8) x4)) (define (traverse-one x4) (let ((res (((rest (((rest (((rest x4) 3) 0)) 3) 0)) 3) 3))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 105: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 x0))))))))) (x2 0) (x3 #f) (x4 (cons x2 #f)) (x5 (lambda (x) (if (= x 0) x2 (if (= x 1) x4 x3)))) (x6 0) (x7 #f) (x8 (lambda (x) (if (= x 0) x7 (if (= x 1) x1 (if (= x 2) x4 (if (= x 3) x6 (if (= x 4) x3 (if (= x 5) x4 (if (= x 6) x4 (if (= x 7) x2 x5))))))))))) (set-rest! x4 x5) x8)) (define (traverse-one x8) (= 0 (x8 3))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 106: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 x0)))))) (x2 (lambda (x) (if (= x 0) x1 x0))) (x3 (cons #f x2)) (x4 1) (x5 (lambda (x) (if (= x 0) x4 (if (= x 1) x2 (if (= x 2) x4 (if (= x 3) x4 x1)))))) (x6 (lambda (x) (if (= x 0) x2 (if (= x 1) x3 (if (= x 2) x1 (if (= x 3) x5 (if (= x 4) x1 (if (= x 5) x1 x4)))))))) (x7 0) (x8 #t) (x9 (lambda (x) (if (= x 0) x7 (if (= x 1) x6 (if (= x 2) x0 (if (= x 3) x4 (if (= x 4) x0 (if (= x 5) x5 x4))))))))) (set-first! x3 x5) x8)) (define (traverse-one x8) (let ((res x8)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 107: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 x0)))) x1)) (define (traverse-one x1) (= 1 (x1 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 108: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) x0)) (x2 (cons #f x0)) (x3 (cons #f x2))) (set-first! x2 x2) (set-first! x3 x3) x1)) (define (traverse-one x1) (= 1 (x1 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 109: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons x0 #f)) (x2 #f) (x3 (cons #f #f)) (x4 (lambda (x) (if (= x 0) x2 x3))) (x5 #f) (x6 (cons #f x4)) (x7 (lambda (x) (if (= x 0) x2 (if (= x 1) x6 (if (= x 2) x2 x6))))) (x8 #t) (x9 #f)) (set-rest! x1 x6) (set-first! x3 x9) (set-rest! x3 x3) (set-first! x6 x9) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 110: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 x0))))))))))) x1)) (define (traverse-one x1) (let ((res (x1 6))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 111: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 x0))))) (x2 #t) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x2 (if (= x 4) x2 (if (= x 5) x2 (if (= x 6) x0 (if (= x 7) x2 x1)))))))))) (x4 1) (x5 (cons x3 x2)) (x6 0)) x4)) (define (traverse-one x4) (= 1 x4)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 112: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f)) (x2 (lambda (x) x1)) (x3 #t)) (set-first! x1 x1) (set-rest! x1 x1) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 113: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 #f) (x2 (cons x1 #f)) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x2 (if (= x 2) x0 (if (= x 3) x2 x2)))))) (x4 #t) (x5 (cons x0 x3)) (x6 0) (x7 (lambda (x) (if (= x 0) x6 (if (= x 1) x3 (if (= x 2) x4 (if (= x 3) x2 x0)))))) (x8 (lambda (x) (if (= x 0) x5 (if (= x 1) x4 (if (= x 2) x4 x0)))))) (set-rest! x2 x5) x4)) (define (traverse-one x4) (let ((res x4)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 114: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 0) (x2 #t) (x3 0) (x4 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x1 (if (= x 5) x1 (if (= x 6) x0 x2))))))))) (x5 1) (x6 (cons #f x4)) (x7 (lambda (x) (if (= x 0) x6 (if (= x 1) x2 (if (= x 2) x4 (if (= x 3) x6 (if (= x 4) x1 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 (if (= x 8) x6 x0)))))))))))) (set-first! x6 x6) x0)) (define (traverse-one x0) (= 1 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 115: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 x0))))) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x0 x1))))) (x3 (cons x0 x0))) x2)) (define (traverse-one x2) (= 1 (x2 2))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 116: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 (if (= x 8) x0 x0))))))))))) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x1 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x1 (if (= x 7) x0 (if (= x 8) x0 x0)))))))))))) x2)) (define (traverse-one x2) (let ((res (x2 3))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 117: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 #t) (x2 (cons #f #f)) (x3 (cons #f x2)) (x4 #f) (x5 (cons x0 x2)) (x6 0) (x7 (lambda (x) (if (= x 0) x1 (if (= x 1) x3 x3))))) (set-first! x2 x5) (set-rest! x2 x5) (set-first! x3 x3) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 118: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 x0))))))) (x2 (cons #f #f)) (x3 (cons #f #f)) (x4 (cons #f x1)) (x5 (lambda (x) (if (= x 0) x3 (if (= x 1) x3 (if (= x 2) x3 (if (= x 3) x1 (if (= x 4) x2 (if (= x 5) x3 (if (= x 6) x1 (if (= x 7) x1 x0)))))))))) (x6 #t) (x7 #f)) (set-first! x2 x4) (set-rest! x2 x7) (set-first! x3 x4) (set-rest! x3 x7) (set-first! x4 x5) x4)) (define (traverse-one x4) (let ((res (((first x4) 7) 2))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 119: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0)) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 120: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (cons #f #f))) (set-first! x1 x1) (set-rest! x1 x1) x0)) (define (traverse-one x0) (= 1 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 121: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f)) (x2 1) (x3 0) (x4 (cons x0 #f)) (x5 #f) (x6 (cons #f x1))) (set-first! x1 x6) (set-rest! x1 x1) (set-rest! x4 x6) (set-first! x6 x6) x2)) (define (traverse-one x2) (= 1 x2)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 122: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 #f) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x1 x0))))))) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 x2)))) (x4 (cons x2 #f)) (x5 0) (x6 (lambda (x) (if (= x 0) x5 (if (= x 1) x0 (if (= x 2) x0 x5))))) (x7 #t)) (set-rest! x4 x7) x6)) (define (traverse-one x6) (= 0 (x6 3))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 123: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) x0)) (x2 1) (x3 1) (x4 0)) x4)) (define (traverse-one x4) (= 0 x4)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 124: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons x0 x0)) (x2 0) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x2 (if (= x 2) x2 (if (= x 3) x2 (if (= x 4) x2 x1))))))) (x4 (cons #f x2)) (x5 (cons x2 #f)) (x6 (lambda (x) (if (= x 0) x3 (if (= x 1) x4 (if (= x 2) x0 (if (= x 3) x4 (if (= x 4) x5 x5))))))) (x7 (cons #f x5)) (x8 (cons x4 x6)) (x9 #t)) (set-first! x4 x4) (set-rest! x5 x8) (set-first! x7 x9) x7)) (define (traverse-one x7) (let ((res (first x7))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 125: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f))) (set-first! x1 x1) (set-rest! x1 x1) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 126: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 x0)))))) (x2 (cons x0 x0))) x2)) (define (traverse-one x2) (let ((res (rest x2))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 127: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 x0))))) (x2 (cons x0 x0)) (x3 1) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x3 (if (= x 2) x1 (if (= x 3) x0 (if (= x 4) x2 (if (= x 5) x1 (if (= x 6) x3 (if (= x 7) x2 x1)))))))))) (x5 (lambda (x) (if (= x 0) x3 (if (= x 1) x3 (if (= x 2) x1 (if (= x 3) x1 (if (= x 4) x3 x4)))))))) x5)) (define (traverse-one x5) (= 0 ((x5 3) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 128: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) x0)) (x2 (cons x0 x0))) x2)) (define (traverse-one x2) (= 0 (first x2))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 129: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 x0))))))) x1)) (define (traverse-one x1) (= 0 (x1 4))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 130: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (cons #f x0)) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 x1))))))))) (x3 #f) (x4 0)) (set-first! x1 x3) x2)) (define (traverse-one x2) (if (first (x2 3)) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 131: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons x0 #f)) (x2 #f) (x3 (cons x1 #f)) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x2 x3)))))) (x5 (lambda (x) (if (= x 0) x1 x2))) (x6 (lambda (x) (if (= x 0) x0 (if (= x 1) x5 (if (= x 2) x4 (if (= x 3) x2 (if (= x 4) x0 (if (= x 5) x0 x0))))))))) (set-rest! x1 x6) (set-rest! x3 x6) x3)) (define (traverse-one x3) (= 0 (((rest (first x3)) 2) 2))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 132: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 1) (x2 1) (x3 (cons #f x1)) (x4 (cons x3 #f)) (x5 (lambda (x) (if (= x 0) x4 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x4 x2)))))) (x6 (cons #f x3))) (set-first! x3 x3) (set-rest! x4 x4) (set-first! x6 x6) x5)) (define (traverse-one x5) (= 1 (x5 4))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 133: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (cons x0 #f))) (set-rest! x1 x1) x0)) (define (traverse-one x0) (= 1 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 134: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons #f x0)) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 (if (= x 2) x0 (if (= x 3) x1 x1)))))) (x3 1) (x4 #t) (x5 #t) (x6 (lambda (x) (if (= x 0) x0 (if (= x 1) x2 x0)))) (x7 (cons x1 x2))) (set-first! x1 x4) x0)) (define (traverse-one x0) (let ((res x0)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 135: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons #f #f)) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x0 x1)))))) (x3 #t)) (set-first! x1 x3) (set-rest! x1 x3) x2)) (define (traverse-one x2) (let ((res (x2 3))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 136: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 x0))))))))) (x2 #t) (x3 (cons #f x0)) (x4 (lambda (x) (if (= x 0) x0 x0))) (x5 0) (x6 (lambda (x) (if (= x 0) x3 (if (= x 1) x0 (if (= x 2) x4 (if (= x 3) x1 (if (= x 4) x1 x1))))))) (x7 0) (x8 0) (x9 (lambda (x) (if (= x 0) x3 (if (= x 1) x8 (if (= x 2) x6 (if (= x 3) x3 (if (= x 4) x8 (if (= x 5) x0 (if (= x 6) x1 x1)))))))))) (set-first! x3 x5) x9)) (define (traverse-one x9) (if ((x9 2) 1) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 137: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 (if (= x 8) x0 x0))))))))))) (x2 (cons x1 #f)) (x3 (cons #f #f)) (x4 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 x2)))) (x5 (cons x1 x4)) (x6 (cons x1 x1))) (set-rest! x2 x4) (set-first! x3 x3) (set-rest! x3 x6) x3)) (define (traverse-one x3) (if ((first (rest x3)) 0) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 138: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 1) (x2 (cons x0 #f))) (set-rest! x2 x2) x2)) (define (traverse-one x2) (let ((res (first (rest (rest (rest x2)))))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 139: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 0) (x2 (cons #f x1)) (x3 (cons #f x0))) (set-first! x2 x2) (set-first! x3 x3) x2)) (define (traverse-one x2) (= 0 (rest (first (first (first x2)))))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 140: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (cons #f #f)) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x1 (if (= x 3) x1 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x1 (if (= x 7) x0 (if (= x 8) x1 x1))))))))))) (x3 (lambda (x) (if (= x 0) x0 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x2 (if (= x 4) x2 (if (= x 5) x1 x2)))))))) (x4 1) (x5 0) (x6 #f) (x7 (cons x2 x3))) (set-first! x1 x2) (set-rest! x1 x4) x7)) (define (traverse-one x7) (= 1 (rest ((rest x7) 2)))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 141: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 x0)))))))) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x1 (if (= x 3) x1 x0)))))) (x3 #t) (x4 (cons x0 x2)) (x5 #f) (x6 (cons #f x1)) (x7 (lambda (x) (if (= x 0) x4 (if (= x 1) x2 (if (= x 2) x2 (if (= x 3) x5 (if (= x 4) x5 (if (= x 5) x3 (if (= x 6) x2 (if (= x 7) x2 (if (= x 8) x4 x6))))))))))) (x8 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 x4))))) (set-first! x6 x8) x7)) (define (traverse-one x7) (if (x7 4) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 142: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 #t) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x1 x1)))))) (x3 #t) (x4 (lambda (x) (if (= x 0) x3 x2))) (x5 (cons x3 x4)) (x6 #t) (x7 (lambda (x) (if (= x 0) x3 (if (= x 1) x1 (if (= x 2) x5 x5)))))) x6)) (define (traverse-one x6) (let ((res x6)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 143: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0)) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 144: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 x0)))))))))) (x2 (cons #f #f)) (x3 0) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x0 x3))))) (x5 0) (x6 (lambda (x) (if (= x 0) x0 x5))) (x7 (cons x5 x2)) (x8 #f) (x9 (lambda (x) (if (= x 0) x5 (if (= x 1) x7 (if (= x 2) x2 (if (= x 3) x5 (if (= x 4) x7 x1)))))))) (set-first! x2 x8) (set-rest! x2 x6) x4)) (define (traverse-one x4) (= 0 (x4 3))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 145: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (cons #f #f)) (x2 (cons x0 #f)) (x3 (lambda (x) (if (= x 0) x2 x2))) (x4 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 x3)))))) (x5 1) (x6 (cons #f x5)) (x7 (cons #f x6))) (set-first! x1 x2) (set-rest! x1 x4) (set-rest! x2 x2) (set-first! x6 x6) (set-first! x7 x7) x7)) (define (traverse-one x7) (= 1 (rest (rest (first (first (first (first x7)))))))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 146: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 x0))) (x2 1) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x2 x1))))) (x4 #f) (x5 (cons x0 x3)) (x6 #t) (x7 (lambda (x) x1)) (x8 (cons x5 x1))) x8)) (define (traverse-one x8) (= 1 ((rest (first x8)) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 147: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons x0 #f)) (x2 (cons x0 #f)) (x3 1)) (set-rest! x1 x3) (set-rest! x2 x3) x2)) (define (traverse-one x2) (= 0 (first x2))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 148: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 x0)))))))) (x2 #f) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x2 (if (= x 2) x0 (if (= x 3) x2 x0)))))) (x4 #t)) x3)) (define (traverse-one x3) (let ((res ((x3 0) 0))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 149: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 x0)))))))) (x2 0) (x3 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x0 (if (= x 5) x2 (if (= x 6) x0 (if (= x 7) x1 (if (= x 8) x0 x0))))))))))) (x4 (lambda (x) (if (= x 0) x3 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x2 (if (= x 7) x3 (if (= x 8) x2 x3))))))))))) (x5 (lambda (x) (if (= x 0) x2 (if (= x 1) x3 (if (= x 2) x4 (if (= x 3) x1 (if (= x 4) x2 (if (= x 5) x2 (if (= x 6) x0 (if (= x 7) x3 (if (= x 8) x1 x1)))))))))))) x5)) (define (traverse-one x5) (= 0 ((x5 2) 8))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 150: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons #f #f)) (x2 (cons #f x0)) (x3 (cons x0 x1)) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 x0)))) (x5 #t) (x6 1) (x7 0)) (set-first! x1 x3) (set-rest! x1 x6) (set-first! x2 x3) x4)) (define (traverse-one x4) (let ((res (first (first (x4 0))))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 151: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons x0 #f)) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 x0))))) (set-rest! x1 x1) x2)) (define (traverse-one x2) (= 0 (first (rest (x2 1))))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 152: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 1)) x1)) (define (traverse-one x1) (= 1 x1)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 153: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 x0)))))) (x2 0) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x2 x0)))))) (x4 (cons #f x1)) (x5 (lambda (x) (if (= x 0) x0 (if (= x 1) x3 (if (= x 2) x4 (if (= x 3) x0 (if (= x 4) x4 (if (= x 5) x4 x2))))))))) (set-first! x4 x5) x4)) (define (traverse-one x4) (= 0 (((first ((first ((first x4) 2)) 5)) 1) 3))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 154: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f)) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 x0)))) (x3 (lambda (x) (if (= x 0) x0 (if (= x 1) x2 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x2 (if (= x 5) x2 (if (= x 6) x2 (if (= x 7) x2 (if (= x 8) x0 x2))))))))))) (x4 (cons x0 x2)) (x5 (lambda (x) (if (= x 0) x3 (if (= x 1) x2 (if (= x 2) x3 (if (= x 3) x3 (if (= x 4) x4 (if (= x 5) x1 (if (= x 6) x4 (if (= x 7) x4 (if (= x 8) x0 x0)))))))))))) (set-first! x1 x4) (set-rest! x1 x1) x5)) (define (traverse-one x5) (= 0 ((x5 3) 8))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 155: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (lambda (x) x0)) (x2 (cons #f #f)) (x3 (cons #f #f)) (x4 (cons x0 x2)) (x5 (lambda (x) (if (= x 0) x3 (if (= x 1) x4 x2)))) (x6 #f) (x7 (cons x0 #f)) (x8 (lambda (x) (if (= x 0) x0 x7)))) (set-first! x2 x6) (set-rest! x2 x2) (set-first! x3 x5) (set-rest! x3 x3) (set-rest! x7 x8) x3)) (define (traverse-one x3) (if (first (rest ((first (rest ((first ((first x3) 0)) 0))) 2))) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 156: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) x0)) (x2 (cons x1 #f)) (x3 (cons #f #f)) (x4 (lambda (x) (if (= x 0) x0 (if (= x 1) x3 (if (= x 2) x2 (if (= x 3) x1 x3)))))) (x5 (cons x3 x1)) (x6 (cons x5 x0)) (x7 0) (x8 (cons x2 x1))) (set-rest! x2 x6) (set-first! x3 x3) (set-rest! x3 x5) x4)) (define (traverse-one x4) (let ((res (x4 0))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 157: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 x0))))) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x1 (if (= x 5) x0 (if (= x 6) x1 x1))))))))) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x2 x2))))) (x4 (cons x1 x3))) x3)) (define (traverse-one x3) (if (((x3 3) 6) 0) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 158: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 #t) (x2 (lambda (x) (if (= x 0) x0 x0))) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x2 (if (= x 7) x1 (if (= x 8) x1 x0))))))))))) (x4 1)) x3)) (define (traverse-one x3) (let ((res (x3 9))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 159: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (cons x0 #f)) (x2 (cons x0 x1)) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x2 x1)))) (x4 (cons x1 #f)) (x5 (lambda (x) x1)) (x6 (lambda (x) (if (= x 0) x4 (if (= x 1) x5 (if (= x 2) x5 (if (= x 3) x3 (if (= x 4) x4 (if (= x 5) x1 (if (= x 6) x4 (if (= x 7) x4 x1))))))))))) (set-rest! x1 x1) (set-rest! x4 x4) x6)) (define (traverse-one x6) (= 1 (first ((x6 3) 0)))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 160: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 x0))))) (x2 #f) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x0 (if (= x 2) x2 (if (= x 3) x0 x0)))))) (x4 (cons x1 x2)) (x5 (cons x0 x3)) (x6 (cons x4 #f))) (set-rest! x6 x6) x5)) (define (traverse-one x5) (= 1 (first x5))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 161: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 1) (x2 (cons #f #f)) (x3 (lambda (x) x0)) (x4 (cons #f #f)) (x5 (cons x4 x0)) (x6 (cons #f x1)) (x7 (lambda (x) (if (= x 0) x3 (if (= x 1) x5 (if (= x 2) x5 x0)))))) (set-first! x2 x6) (set-rest! x2 x2) (set-first! x4 x7) (set-rest! x4 x4) (set-first! x6 x6) x6)) (define (traverse-one x6) (= 1 (rest (first (first (first x6)))))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 162: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t)) x0)) (define (traverse-one x0) (let ((res x0)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 163: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 0) (x2 #f) (x3 (cons #f #f)) (x4 (cons #f x1))) (set-first! x3 x4) (set-rest! x3 x4) (set-first! x4 x4) x0)) (define (traverse-one x0) (if x0 #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 164: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 x0))))))))) (x2 (cons #f #f)) (x3 (cons #f #f)) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x1 (if (= x 3) x1 x0)))))) (x5 (cons x4 x4)) (x6 (cons #f x2)) (x7 0) (x8 (cons x4 x4)) (x9 (cons x3 x4))) (set-first! x2 x5) (set-rest! x2 x3) (set-first! x3 x5) (set-rest! x3 x4) (set-first! x6 x9) x7)) (define (traverse-one x7) (= 0 x7)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 165: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons #f x0)) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x1 x0))))))))) (x3 (lambda (x) (if (= x 0) x1 x2))) (x4 (cons #f x1)) (x5 0) (x6 #t) (x7 (lambda (x) (if (= x 0) x3 x1))) (x8 #t)) (set-first! x1 x8) (set-first! x4 x4) x6)) (define (traverse-one x6) (let ((res x6)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 166: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 x0))))))))) (x2 (lambda (x) (if (= x 0) x1 x0))) (x3 (cons x2 #f)) (x4 (cons x0 x2))) (set-rest! x3 x3) x3)) (define (traverse-one x3) (if (((first (rest (rest x3))) 0) 4) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 167: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 #f) (x2 0) (x3 0) (x4 (lambda (x) (if (= x 0) x3 (if (= x 1) x2 (if (= x 2) x0 (if (= x 3) x1 (if (= x 4) x0 x2)))))))) x4)) (define (traverse-one x4) (if (x4 3) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 168: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 #f) (x2 (cons x1 x1)) (x3 (cons #f x0)) (x4 (lambda (x) x0)) (x5 0) (x6 0)) (set-first! x3 x4) x5)) (define (traverse-one x5) (= 0 x5)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 169: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 0) (x2 (cons x1 #f)) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x2 (if (= x 6) x1 x0))))))))) (x4 (cons x3 #f)) (x5 0) (x6 0) (x7 0) (x8 0)) (set-rest! x2 x6) (set-rest! x4 x8) x7)) (define (traverse-one x7) (= 0 x7)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 170: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons #f x0)) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 x1)))) (x3 0)) (set-first! x1 x2) x2)) (define (traverse-one x2) (let ((res (rest ((first (x2 2)) 2)))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 171: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f)) (x2 #t) (x3 (lambda (x) (if (= x 0) x0 x2)))) (set-first! x1 x3) (set-rest! x1 x2) x1)) (define (traverse-one x1) (let ((res (rest x1))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 172: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) x0)) (x2 1) (x3 1) (x4 0) (x5 (cons x4 #f)) (x6 0) (x7 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x2 (if (= x 4) x6 (if (= x 5) x6 (if (= x 6) x4 x3)))))))))) (set-rest! x5 x7) x5)) (define (traverse-one x5) (= 1 (((rest x5) 0) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 173: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 x0))) (x2 (lambda (x) (if (= x 0) x0 x0))) (x3 1) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x0 (if (= x 2) x1 (if (= x 3) x3 (if (= x 4) x3 (if (= x 5) x3 (if (= x 6) x2 (if (= x 7) x1 (if (= x 8) x2 x3))))))))))) (x5 (cons x2 x1)) (x6 (lambda (x) (if (= x 0) x3 (if (= x 1) x1 (if (= x 2) x2 (if (= x 3) x5 (if (= x 4) x2 (if (= x 5) x4 (if (= x 6) x3 (if (= x 7) x5 x2))))))))))) x6)) (define (traverse-one x6) (= 0 (((x6 5) 2) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 174: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 x0))))))))) (x2 (lambda (x) (if (= x 0) x0 x0))) (x3 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x1 (if (= x 4) x1 x1))))))) (x4 (lambda (x) (if (= x 0) x3 (if (= x 1) x2 (if (= x 2) x3 (if (= x 3) x3 (if (= x 4) x3 (if (= x 5) x0 (if (= x 6) x1 (if (= x 7) x2 (if (= x 8) x2 x3))))))))))) (x5 (cons x3 #f)) (x6 (cons #f x1)) (x7 (lambda (x) (if (= x 0) x5 (if (= x 1) x1 (if (= x 2) x3 x4))))) (x8 #t) (x9 #f)) (set-rest! x5 x9) (set-first! x6 x7) x6)) (define (traverse-one x6) (if (rest ((first x6) 0)) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 175: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons x0 x0)) (x2 1) (x3 (cons x1 #f)) (x4 (cons x3 x1))) (set-rest! x3 x3) x3)) (define (traverse-one x3) (= 0 (rest (first x3)))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 176: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1)) x0)) (define (traverse-one x0) (= 1 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 177: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 x0)))))))))) (x2 (lambda (x) (if (= x 0) x0 (if (= x 1) x1 x1)))) (x3 (cons #f x2)) (x4 #f) (x5 0) (x6 (cons x1 #f))) (set-first! x3 x3) (set-rest! x6 x6) x5)) (define (traverse-one x5) (= 0 x5)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 178: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 x0))))))) (x2 (lambda (x) x0)) (x3 #f) (x4 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x3 (if (= x 3) x3 x2))))))) x1)) (define (traverse-one x1) (= 0 (x1 2))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 179: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 #t) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x1 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x0 (if (= x 7) x0 x0)))))))))) (x3 (cons #f #f)) (x4 #f) (x5 (cons x2 x1)) (x6 (cons x2 x3)) (x7 #t) (x8 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x6 (if (= x 3) x5 (if (= x 4) x0 (if (= x 5) x5 (if (= x 6) x1 (if (= x 7) x4 x4))))))))))) (set-first! x3 x4) (set-rest! x3 x6) x7)) (define (traverse-one x7) (let ((res x7)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 180: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t)) x0)) (define (traverse-one x0) (let ((res x0)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 181: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 x0)))))))) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x1 x0))))) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x1 (if (= x 4) x2 x1))))))) (x4 1) (x5 (cons #f #f)) (x6 (cons x0 x5))) (set-first! x5 x6) (set-rest! x5 x5) x4)) (define (traverse-one x4) (= 1 x4)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 182: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f #f)) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x1 x1))))) (x3 (cons #f x0)) (x4 0)) (set-first! x1 x3) (set-rest! x1 x1) (set-first! x3 x4) x2)) (define (traverse-one x2) (= 0 (first (first (rest (x2 0)))))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 183: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (cons #f x0)) (x2 (cons #f x0)) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x2 (if (= x 4) x2 (if (= x 5) x2 (if (= x 6) x0 (if (= x 7) x0 x2)))))))))) (x4 (cons x3 #f)) (x5 #f) (x6 (lambda (x) (if (= x 0) x3 (if (= x 1) x5 (if (= x 2) x2 x3))))) (x7 (cons #f x2))) (set-first! x1 x2) (set-first! x2 x4) (set-rest! x4 x7) (set-first! x7 x7) x3)) (define (traverse-one x3) (= 0 (x3 7))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 184: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 0)) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 185: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 x0))))) (x2 (cons #f #f)) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x2 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x1 (if (= x 7) x1 (if (= x 8) x1 x1)))))))))))) (set-first! x2 x3) (set-rest! x2 x3) x3)) (define (traverse-one x3) (= 1 ((x3 9) 3))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 186: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x0 (if (= x 6) x0 (if (= x 7) x0 x0)))))))))) (x2 (cons #f x0)) (x3 (lambda (x) (if (= x 0) x0 (if (= x 1) x0 (if (= x 2) x2 (if (= x 3) x1 (if (= x 4) x1 (if (= x 5) x1 (if (= x 6) x1 (if (= x 7) x1 x2))))))))))) (set-first! x2 x3) x3)) (define (traverse-one x3) (= 0 ((first (x3 8)) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 187: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 1) (x2 (cons #f #f)) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x0 (if (= x 4) x1 (if (= x 5) x2 (if (= x 6) x1 (if (= x 7) x0 x1))))))))))) (set-first! x2 x3) (set-rest! x2 x2) x3)) (define (traverse-one x3) (= 1 ((first (x3 5)) 8))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 188: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 0) (x2 (lambda (x) x1)) (x3 (cons #f x0)) (x4 (lambda (x) (if (= x 0) x3 x1))) (x5 (lambda (x) (if (= x 0) x2 (if (= x 1) x3 (if (= x 2) x3 (if (= x 3) x0 (if (= x 4) x0 x2))))))) (x6 (lambda (x) (if (= x 0) x4 x3))) (x7 (lambda (x) x3)) (x8 (cons x0 x0)) (x9 (lambda (x) (if (= x 0) x4 (if (= x 1) x6 (if (= x 2) x8 x3)))))) (set-first! x3 x9) x9)) (define (traverse-one x9) (= 0 (((x9 1) 0) 1))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 189: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 0) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x1 x0))))))) (x3 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 (if (= x 2) x0 (if (= x 3) x1 x2)))))) (x4 (cons #f x2)) (x5 1)) (set-first! x4 x4) x5)) (define (traverse-one x5) (= 1 x5)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 190: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 1) (x2 1)) x1)) (define (traverse-one x1) (= 1 x1)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 191: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (cons #f x0)) (x2 (cons #f x1)) (x3 0) (x4 (lambda (x) (if (= x 0) x2 (if (= x 1) x0 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x2 (if (= x 5) x0 x3)))))))) (x5 0) (x6 1) (x7 (lambda (x) (if (= x 0) x4 (if (= x 1) x1 (if (= x 2) x2 (if (= x 3) x0 (if (= x 4) x3 x4)))))))) (set-first! x1 x5) (set-first! x2 x7) x6)) (define (traverse-one x6) (= 1 x6)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 192: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 (cons #f #f)) (x2 #t) (x3 (cons #f x0)) (x4 #f) (x5 (cons #f x3)) (x6 #f) (x7 (cons x6 x0))) (set-first! x1 x6) (set-rest! x1 x2) (set-first! x3 x4) (set-first! x5 x5) x1)) (define (traverse-one x1) (if (first x1) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 193: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 0) (x2 #f) (x3 0)) x0)) (define (traverse-one x0) (if x0 #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 194: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 1) (x1 (cons x0 #f)) (x2 0) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x2 (if (= x 2) x2 (if (= x 3) x1 (if (= x 4) x1 (if (= x 5) x0 (if (= x 6) x2 (if (= x 7) x1 x1)))))))))) (x4 (lambda (x) (if (= x 0) x3 (if (= x 1) x0 (if (= x 2) x3 (if (= x 3) x0 x2))))))) (set-rest! x1 x3) x4)) (define (traverse-one x4) (= 0 ((x4 0) 0))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 195: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #f) (x1 #f) (x2 (lambda (x) (if (= x 0) x0 x0))) (x3 (lambda (x) (if (= x 0) x2 (if (= x 1) x1 (if (= x 2) x1 (if (= x 3) x0 (if (= x 4) x0 (if (= x 5) x1 (if (= x 6) x0 (if (= x 7) x2 x1))))))))))) x3)) (define (traverse-one x3) (if (x3 2) #f #t)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 196: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 (cons #f #f)) (x2 (cons #f x0)) (x3 (cons x1 #f)) (x4 (cons #f x0)) (x5 (cons x2 x0))) (set-first! x1 x3) (set-rest! x1 x1) (set-first! x2 x5) (set-rest! x3 x3) (set-first! x4 x4) x5)) (define (traverse-one x5) (let ((res (rest (first x5)))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 197: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t) (x1 0) (x2 (lambda (x) (if (= x 0) x1 (if (= x 1) x1 (if (= x 2) x0 (if (= x 3) x0 (if (= x 4) x1 (if (= x 5) x1 (if (= x 6) x0 (if (= x 7) x0 x0)))))))))) (x3 (cons x0 #f)) (x4 0) (x5 0)) (set-rest! x3 x5) x2)) (define (traverse-one x2) (let ((res (x2 8))) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 198: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 0) (x1 1)) x0)) (define (traverse-one x0) (= 0 x0)) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here ----- 199: failed stderr: compiled/template_ss.zo::0: read (compiled): code compiled for version 4.2.3, not 4.2.4.5 === context === standard-module-name-resolver ----- mutator cut here ----- #lang planet plai/plai:1:19/mutator (allocator-setup "../../../home/robby/svn/usr/robby/pl-class/w10/gc/template.ss" 200) (import-primitives symbol=?) (define (build-one) (let* ((x0 #t)) x0)) (define (traverse-one x0) (let ((res x0)) (if (boolean? res) res #f))) (define (trigger-gc n) (if (zero? n) 0 (begin (cons n n) (trigger-gc (- n 1))))) (define (loop i) (if (zero? i) 'passed (let ((obj (build-one))) (trigger-gc 200) (if (traverse-one obj) (loop (- i 1)) 'failed)))) (loop 500) ----- mutator cut here -----