Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing child process input port in call-with-process-io.

Browse source
This commit is contained in:
Alex Shinn 2014-02-12 00:04:31 +09:00
parent 5c00c4a8df
commit e22c03018a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/process.scm
View file

@ -82,13 +82,13 @@
((not pid) ((not pid)
(error "couldn't fork")) (error "couldn't fork"))
((zero? pid) ;; child ((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 out-pipe))
(close-file-descriptor (car err-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 out-pipe) 1)
(duplicate-file-descriptor-to (cadr err-pipe) 2) (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 out-pipe))
(close-file-descriptor (cadr err-pipe)) (close-file-descriptor (cadr err-pipe))
(execute (car command-ls) command-ls)) (execute (car command-ls) command-ls))