Mute stderr as a quick fix
This commit is contained in:
parent
4ffdd4610d
commit
d1fb3bb071
|
@ -7,7 +7,8 @@
|
||||||
(begin
|
(begin
|
||||||
(define (subprocess command-line stdin-bytevector read-stdout)
|
(define (subprocess command-line stdin-bytevector read-stdout)
|
||||||
(read-stdout (run/port (,(car command-line) ,@(cdr command-line))
|
(read-stdout (run/port (,(car command-line) ,@(cdr command-line))
|
||||||
(<< ,(utf8->string stdin-bytevector)))))))
|
(<< ,(utf8->string stdin-bytevector))
|
||||||
|
(> 2 "/dev/null"))))))
|
||||||
(gauche
|
(gauche
|
||||||
(import (only (gauche process) call-with-process-io))
|
(import (only (gauche process) call-with-process-io))
|
||||||
(begin
|
(begin
|
||||||
|
|
Loading…
Reference in New Issue