11 lines
172 B
Scheme
11 lines
172 B
Scheme
(pragma->sxml m)
|
|
|
|
(define (mount-root component)
|
|
(m.mount
|
|
document.body
|
|
component))
|
|
|
|
(define-macro (component view)
|
|
`(object
|
|
:view
|
|
(lambda () (,@view))))
|