;; Set up linkage from output fds to created pipes.
(for-each (lambda (from-fd)
(duplicate-fileno (cadr p) from-fd))
+ ;; Not needed anymore after duplication is complete.
;; Close sending end in parent.
;; Set up linkage from created pipes to the input fds.
- (duplicate-fileno (car p) to-fd))
+ (duplicate-fileno (car p) to-fd)
+ ;; No longer needed after duplication.