blob: fdb4876057975ad49774e881f4e77dfea2c5f254 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
(define make-previous
(let ((glob 'first-time))
(lambda ()
(let ((old 'first-time))
(lambda (arg)
(let ((result (list old glob)))
(set! old arg)
(set! glob arg)
result))))))
|