8 lines
212 B
Scheme
8 lines
212 B
Scheme
|
(define (run-read-write args input-port read-output)
|
||
|
|
(call-with-process-io
|
||
|
|
args
|
||
|
|
(lambda (from-sub to-sub)
|
||
|
|
(copy-port input-port to-sub)
|
||
|
|
(close-output-port to-sub)
|
||
|
|
(read-output from-sub))))
|