dan
/
dunlin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
command.fnl
View File

@ -57,9 +57,6 @@
&until v] &until v]
(if (. params k) nil k))) (if (. params k) nil k)))
(fn invoke-command [command params]
(command.function params))
(fn next-action [self input-string] (fn next-action [self input-string]
(let [state self.state (let [state self.state
state-for-next-param state-for-next-param
@ -72,7 +69,7 @@
:active true :active true
} }
_ (let [params (lume.extend {} {:frame self.frame} params)] _ (let [params (lume.extend {} {:frame self.frame} params)]
(invoke-command c params) (c.function params)
{:active false})))] {:active false})))]
(match state (match state
@ -97,8 +94,7 @@
(state-for-next-param c p)) (state-for-next-param c p))
{:command c :this-param nil :collected-params 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)) _ (do (print "unexpected state " (view state))
state) state)