ikarus/runtime/collect.ss

6 lines
36 B
Scheme

(define (f)
(collect)
(f))
(f)