From e22c03018acd5e5fea592e61b3ca853c52cf7ba0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 12 Feb 2014 00:04:31 +0900 Subject: [PATCH] Fixing child process input port in call-with-process-io. --- lib/chibi/process.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/chibi/process.scm b/lib/chibi/process.scm index 4c6b38dd..56977c36 100644 --- a/lib/chibi/process.scm +++ b/lib/chibi/process.scm @@ -82,13 +82,13 @@ ((not pid) (error "couldn't fork")) ((zero? pid) ;; child - (close-file-descriptor (car in-pipe)) + (close-file-descriptor (cadr in-pipe)) (close-file-descriptor (car out-pipe)) (close-file-descriptor (car err-pipe)) - (duplicate-file-descriptor-to (cadr in-pipe) 0) + (duplicate-file-descriptor-to (car in-pipe) 0) (duplicate-file-descriptor-to (cadr out-pipe) 1) (duplicate-file-descriptor-to (cadr err-pipe) 2) - (close-file-descriptor (cadr in-pipe)) + (close-file-descriptor (car in-pipe)) (close-file-descriptor (cadr out-pipe)) (close-file-descriptor (cadr err-pipe)) (execute (car command-ls) command-ls))