Major patch touching a lot, representing the new lol. is mostly drop-in backwards...

[clinton/lisp-on-lines.git] / src / components / dojo.lisp

diff --git a/src/components/dojo.lisp b/src/components/dojo.lisp
index c1d36a9..1bfbac8 100644 (file)
--- a/src/components/dojo.lisp
+++ b/src/components/dojo.lisp
@@ -72,8 +72,7 @@
                      ,(lol::make-action-url
                        ,component
                        (progn
-                         ,@actions
-                         (call-component nil (output-component self))))))
+                         ,@actions))))
                 ,@ (unless
                        ,(getf args :post-content)
                      `(:post-content (+ ,,@(loop for c in callbacks