liminix

commit b4ba3eea21eab2c9de5835001ce6b385dce765f8
parent 16af3984c9fcc9137fdb0da2a36832d1fb60aeda
Author: Daniel Barlow <dan@telent.net>
Date:   Wed, 24 Apr 2024 18:31:26 +0100

fix revents in unpack-pollfds

Diffstat:
M
pkgs/devout/devout.fnl
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/pkgs/devout/devout.fnl b/pkgs/devout/devout.fnl
@@ -82,7 +82,7 @@
   (collect [_ v (ipairs pollfds)]
     (let [fd (band (rshift v 32) 0xffffffff)
           revent (band v 0xffff)]
-      (values fd revent))))
+      (values fd (if (> revent 0) revent nil)))))
 
 (fn parse-terms [str]
   (print :terms str)