fix revents in unpack-pollfds

2024-04-24 18:31:26 +01:00 · 2024-04-24 18:31:26 +01:00 · b4ba3eea21
commit b4ba3eea21
parent 16af3984c9
1 changed files with 1 additions and 1 deletions
--- 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)