liminix

commit dd4ab41f6ac4f76bca1d8132e9eb456f0e3f0818
parent 5d5dff6729d764d8dc76ae68b32221bcc4557d40
Author: Daniel Barlow <dan@telent.net>
Date:   Wed,  6 Mar 2024 23:17:24 +0000

rename run-event

Diffstat:
M
pkgs/ifwait/ifwait.fnl
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/pkgs/ifwait/ifwait.fnl b/pkgs/ifwait/ifwait.fnl
@@ -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"))