hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 17:31: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) (:method ((component function) env)
(funcall component env))) (funcall component env)))
(defun to-app (component) (defgeneric to-app (component)
(if (typep component 'lack-component) (:method ((component lack-component))
(lambda (env) (call component env)) (lambda (env) (call component env)))
component)) (:method ((component t))
component))