don't call os.exit
This commit is contained in:
parent
ed9548f21d
commit
7173b6fb1c
1 changed files with 4 additions and 4 deletions
|
@ -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})))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue