15 lines
394 B
Scheme
15 lines
394 B
Scheme
(module web-cell-component mzscheme
|
|
(provide define-component)
|
|
|
|
(define-syntax define-component
|
|
(syntax-rules (define)
|
|
[(_ (include-name id formals embed/url) body ...)
|
|
(define include-name
|
|
(lambda formals
|
|
(let/cc k
|
|
(define (id)
|
|
(k
|
|
(lambda (embed/url)
|
|
body ...)))
|
|
(id))))])))
|