13 lines
390 B
Scheme
13 lines
390 B
Scheme
#!r6rs
|
|
|
|
(library (srfi :213 impl)
|
|
(export define-property capture-lookup)
|
|
(import (rnrs (6))
|
|
(only (chezscheme) define-property format top-level-bound?))
|
|
|
|
;; The ChezScheme implementation is already doing what is necessary
|
|
;; when macro transformer returns a procedure, so we just re-use the
|
|
;; implementation-provided lookup.
|
|
(define (capture-lookup proc)
|
|
proc))
|