17 lines
301 B
Racket
17 lines
301 B
Racket
#lang plai/mutator
|
|
(allocator-setup "../good-collectors/good-collector.rkt" 40)
|
|
|
|
|
|
(define make-conser
|
|
(lambda (n)
|
|
(lambda (x)
|
|
(cons n x))))
|
|
|
|
|
|
(define kons (make-conser 'catamaran))
|
|
;1 2 3 5 6 7
|
|
(kons 'people)
|
|
(kons 'maroon)
|
|
(kons 'srfi)
|
|
(test/value=? (kons 'peace) '(catamaran . peace))
|