hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 09:21:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Redefine to-app as a generic function.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-26 08:51:23 +09:00
parent 80a1c2d300
commit e80f4e2ebc
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/component.lisp
View file

@ -12,7 +12,8 @@
(:method ((component function) env)
(funcall component env)))
(defun to-app (component)
(if (typep component 'lack-component)
(lambda (env) (call component env))
component))
(defgeneric to-app (component)
(:method ((component lack-component))
(lambda (env) (call component env)))
(:method ((component t))
component))