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

11 lines
169 B
Racket
Executable File

#lang plai/mutator
(allocator-setup "../good-collectors/good-collector.ss" 20)
(define car first)
'junk
'junk
'junk
(test/value=? (car (cons 'this-car 2)) 'this-car)