haskal
/
crossfire
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix agent event loop spinning lol

This commit is contained in:
xenia 2021-01-10 02:25:32 -05:00
parent f9486817ed
commit 600f09629d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crossfire/agent.rkt
View File

@ -246,7 +246,9 @@
(define line-match (regexp-match-evt #px"^[^\n]*\n" out))
(define eof-e (eof-evt out))
(let loop ([reached-eof #f] [proc-done #f])
(match (sync/enable-break proc line-match eof-e)
(match (sync/enable-break (if proc-done never-evt proc)
(if reached-eof never-evt line-match)
(if reached-eof never-evt eof-e))
[(== proc)
(unless reached-eof
(loop reached-eof #t))]