11 lines
248 B
Racket
Executable File
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))) |