lbailly/liminix
1
0
Fork 0
forked from DGNum/liminix
Code Pull requests 2 Activity Actions

rename run-event

Browse source
This commit is contained in:
Daniel Barlow 2024-03-06 23:17:24 +00:00
parent 5d5dff6729
commit dd4ab41f6a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
pkgs/ifwait/ifwait.fnl
View file

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