#lang plai/gc2/mutator
(allocator-setup "null-gc.rkt" 20) ; heap size
(define c1 (cons 2 (cons 3 empty)))
(define c2 (cons 1 c1))
(test/location=? (rest c2) c1) ; point to same location
(test/value=? (rest c1) '(3)) ; produce same value
#lang plai/gc2/mutator
(allocator-setup "null-gc.rkt" 20) ; heap size
(define c1 (cons 2 (cons 3 empty)))
(define c2 (cons 1 c1))
(test/location=? (rest c2) c1) ; point to same location
(test/value=? (rest c1) '(3)) ; produce same value