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

remove unnecessary eof-evt

This commit is contained in:
xenia 2021-01-10 02:40:46 -05:00
parent 78571ce870
commit 01978e76d4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crossfire/agent.rkt
View File

@ -244,11 +244,9 @@
;; exit without reporting status ;; exit without reporting status
(kill-thread (current-thread)))]) (kill-thread (current-thread)))])
(define line-match (read-bytes-line-evt out)) (define line-match (read-bytes-line-evt out))
(define eof-e (eof-evt out))
(let loop ([reached-eof #f] [proc-done #f]) (let loop ([reached-eof #f] [proc-done #f])
(match (sync/enable-break (if proc-done never-evt proc) (match (sync/enable-break (if proc-done never-evt proc)
(if reached-eof never-evt line-match) (if reached-eof never-evt line-match))
(if reached-eof never-evt eof-e))
[(== proc) [(== proc)
(unless reached-eof (unless reached-eof
(loop reached-eof #t))] (loop reached-eof #t))]