From 4cbf8e4a2caa422aaed49df9299cfc226025be3a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 3 Apr 1991 00:18:20 +0000 Subject: [PATCH] In `shell-command-region', if the region is empty, must close the input channel of the subprocess. --- v7/src/edwin/process.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm index 6342df7b0..9a62fee12 100644 --- a/v7/src/edwin/process.scm +++ b/v7/src/edwin/process.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.1 1991/03/16 00:03:58 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.2 1991/04/03 00:18:20 cph Exp $ ;;; ;;; Copyright (c) 1991 Massachusetts Institute of Technology ;;; @@ -557,7 +557,8 @@ after the listing is made.)" (begin (set! start-index (+ start-index n)) (if (= start-index end-index) - (channel-close input-channel)))))))) + (channel-close input-channel))))))) + (channel-close input-channel)) (copy-output) (let ((status (subprocess-status process))) (if (eq? status 'RUNNING) -- 2.25.1