dunlin

commit 1f93dc23100a37523a71dea892153d7d4f9edbd2
parent b1bdc326ef51cb48eb7e77b850d0ce3537c1ca0f
Author: Daniel Barlow <dan@telent.net>
Date:   Sun,  1 Jan 2023 19:12:39 +0000

tidying up

Diffstat:
M
command.fnl
 | 
8
++------

1 file changed, 2 insertions(+), 6 deletions(-)
diff --git a/command.fnl b/command.fnl
@@ -57,9 +57,6 @@
                &until v]
     (if (. params k) nil k)))
 
-(fn invoke-command [command params]
-  (command.function params))
-
 (fn next-action [self input-string]
   (let [state self.state
         state-for-next-param
@@ -72,7 +69,7 @@
                 :active true
                 }
             _ (let [params (lume.extend {} {:frame self.frame} params)]
-                (invoke-command c  params)
+                (c.function params)
                 {:active false})))]
 
     (match state
@@ -97,8 +94,7 @@
         (state-for-next-param c p))
 
       {:command c :this-param nil :collected-params p}
-      (do
-        (state-for-next-param c p))
+      (state-for-next-param c p)
 
       _ (do (print "unexpected state " (view state))
             state)