From 955967c5a74e1f8f5b87a829901301988e72351f Mon Sep 17 00:00:00 2001 From: Mark Friedman Date: Tue, 27 Feb 1990 19:39:34 +0000 Subject: [PATCH] Added support for subprocesses to OPEN-CHANNEL-WRAPPER. --- v7/src/runtime/io.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm index 2e48b8a03..2bec879a4 100644 --- a/v7/src/runtime/io.scm +++ b/v7/src/runtime/io.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 14.3 1989/09/20 15:03:59 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 14.4 1990/02/27 19:39:34 markf Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -84,13 +84,17 @@ MIT in each case. |# ;;; - false: input channel ;;; - 0: closed channel -(define ((open-channel-wrapper direction) filename) +(define ((open-channel-wrapper direction) filename-or-process) (without-interrupts (lambda () (let ((channel (make-physical-channel - (file-open-channel filename direction) - filename + (if (process? filename-or-process) + (if direction + (process-get-input-channel filename-or-process) + (process-get-output-channel filename-or-process)) + (file-open-channel filename-or-process direction)) + filename-or-process direction))) (with-absolutely-no-interrupts (lambda () -- 2.25.1