12 lines
192 B
Racket
12 lines
192 B
Racket
#lang plai/mutator
|
|
(allocator-setup "../good-collectors/good-collector.rkt" 6)
|
|
|
|
(define
|
|
proc
|
|
(let* ([not-root 1] ; 2
|
|
[root 2]) ; 4
|
|
(lambda () ; 6
|
|
3
|
|
root)))
|
|
|
|
(proc) |