12 lines
420 B
Scheme
12 lines
420 B
Scheme
|
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; Closures
|
||
|
|
|
||
|
|
(define closure-rtd (make-record-type 'closure '(template env)))
|
||
|
|
(define closure? (record-predicate closure-rtd))
|
||
|
|
(define make-closure (record-constructor closure-rtd '(template env)))
|
||
|
|
(define closure-template (record-accessor closure-rtd 'template))
|
||
|
|
(define closure-env (record-accessor closure-rtd 'env))
|