replace regexp evt for line with builtin line evt

This commit is contained in:
xenia 2021-01-10 02:37:54 -05:00
부모 600f09629d
커밋 78571ce870
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제

파일 보기

@ -243,7 +243,7 @@
(sync/timeout *subproc-kill-delay* proc)
;; exit without reporting status
(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))
(let loop ([reached-eof #f] [proc-done #f])
(match (sync/enable-break (if proc-done never-evt proc)
@ -255,7 +255,7 @@
[(? eof-object?)
(unless proc-done
(loop #t proc-done))]
[(list line)
[(? bytes? line)
(define line-str (bytes->string/utf-8 line #\?))
(define line-parts
(and line-str