ecoppens/liminix
1
0
Fork 0
forked from DGNum/liminix
Code Pull requests Activity

fix revents in unpack-pollfds

Browse source
This commit is contained in:
Daniel Barlow 2024-04-24 18:31:26 +01:00
parent 16af3984c9
commit b4ba3eea21
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
pkgs/devout/devout.fnl
View file

@ -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)