remove unnecessary eof-evt

crossfire/agent.rkt

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