tidying up

main
Daniel Barlow 2023-01-01 19:12:39 +00:00
parent b1bdc326ef
commit 1f93dc2310
1 changed files with 2 additions and 6 deletions

View File

@ -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)