16 lines
419 B
Scheme
16 lines
419 B
Scheme
#lang scheme/base
|
|
(require (for-syntax scheme/base)
|
|
(for-template scheme/base))
|
|
(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))))])) |