BirDt/lips-pwa
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

hackable with a repl

Browse source
This commit is contained in:
BirDt_ 2026-07-11 00:16:04 +08:00
parent 2ffabddba4
commit f9970858d4
3 changed files with 70 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/mithril.scm
View file

@ -5,7 +5,10 @@
document.body
component))
(define-macro (component view)
(define-macro (component view . args)
(when (= (remainder (length args) 2) 1)
(error "Component expected even length args."))
`(object
:view
(lambda () (,@view))))
(lambda (vnode) (,@view))
,@args))