dan
/
liminix
1
0
Fork 5
Code Issues 3 Pull Requests 1 Projects Releases Wiki Activity

don't call os.exit

pull/11/head
Daniel Barlow 2024-03-05 19:43:42 +00:00
parent ed9548f21d
commit 7173b6fb1c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/ifwait/ifwait.fnl
View File

@ -30,8 +30,7 @@
_ _
{})] {})]
(when (. got params.expecting) (. got params.expecting)))
(os.exit 0))))
(fn run [event-fn] (fn run [event-fn]
(let [parameters (let [parameters
@ -41,8 +40,9 @@
(print (.. (. arg 0) ": waiting for " (print (.. (. arg 0) ": waiting for "
parameters.link " to be " parameters.expecting))) parameters.link " to be " parameters.expecting)))
(each [event (event-fn)] (each [e (event-fn)
(run-event parameters event)))) &until (run-event parameters e)]
true)))
(when (not (= (. arg 0) "test")) (run #(nl.events {:link true}))) (when (not (= (. arg 0) "test")) (run #(nl.events {:link true})))