racket/collects/tests/plai/gc/good-mutators/circular.rkt
2010-04-27 16:50:15 -06:00

11 lines
248 B
Racket
Executable File

#lang plai/mutator
(allocator-setup "../good-collectors/good-collector.ss" 68)
(define (gen-circular)
(let ([x (cons 3 4)])
(let ([y (cons 2 x)])
(set-rest! x y)
x)))
(define x (gen-circular))
(test/location=? x (rest (rest x)))