From b4ba3eea21eab2c9de5835001ce6b385dce765f8 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Wed, 24 Apr 2024 18:31:26 +0100
Subject: [PATCH] fix revents in unpack-pollfds

---
 pkgs/devout/devout.fnl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pkgs/devout/devout.fnl b/pkgs/devout/devout.fnl
index dbd7ace..16acf09 100644
--- 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)