don't call os.exit

This commit is contained in:
Daniel Barlow 2024-03-05 19:43:42 +00:00
parent ed9548f21d
commit 7173b6fb1c

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