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

replace regexp evt for line with builtin line evt

This commit is contained in:
xenia 2021-01-10 02:37:54 -05:00
parent 600f09629d
commit 78571ce870
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crossfire/agent.rkt
View File

@ -243,7 +243,7 @@
(sync/timeout *subproc-kill-delay* proc) (sync/timeout *subproc-kill-delay* proc)
;; exit without reporting status ;; exit without reporting status
(kill-thread (current-thread)))]) (kill-thread (current-thread)))])
(define line-match (regexp-match-evt #px"^[^\n]*\n" out)) (define line-match (read-bytes-line-evt out))
(define eof-e (eof-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)
@ -255,7 +255,7 @@
[(? eof-object?) [(? eof-object?)
(unless proc-done (unless proc-done
(loop #t proc-done))] (loop #t proc-done))]
[(list line) [(? bytes? line)
(define line-str (bytes->string/utf-8 line #\?)) (define line-str (bytes->string/utf-8 line #\?))
(define line-parts (define line-parts
(and line-str (and line-str