rename run-event

This commit is contained in:
Daniel Barlow 2024-03-06 23:17:24 +00:00
parent 5d5dff6729
commit dd4ab41f6a

View file

@ -15,7 +15,7 @@
[linkname nil] {:link linkname :expecting "present"}
_ nil))
(fn run-event [params v]
(fn event-matches? [params v]
(let [got
(match v
;; - up: Reflects the administrative state of the interface (IFF_UP)
@ -42,7 +42,7 @@
parameters.link " to be " parameters.expecting)))
(each [e (event-fn)
&until (run-event parameters e)]
&until (event-matches? parameters e)]
true)))
(when (not (= (. arg 0) "test"))