From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 8 May 1996 20:57:53 +0000 (+0000)
Subject: Fix bug -- inverted meaning of input vs. output for subprocess
X-Git-Tag: 20090517-FFI~5546
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7fe1e175812a22f3212372cc9ceb48be514478c8;p=mit-scheme.git

Fix bug -- inverted meaning of input vs. output for subprocess
communications.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 916abfa9e..871955e8d 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.39 1996/04/24 02:45:38 cph Exp $
+;;;	$Id: process.scm,v 1.40 1996/05/08 20:57:53 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-96 Massachusetts Institute of Technology
 ;;;
@@ -597,12 +597,12 @@ after the listing is made.)"
     (subprocess-i/o-port
      process
      (if output-mark
-	 (and (ref-variable translate-file-data-on-output output-mark)
+	 (and (ref-variable translate-file-data-on-input output-mark)
 	      (mark-translation output-mark))
 	 'DEFAULT)
      (if input-region
 	 (let ((mark (region-start input-region)))
-	   (and (ref-variable translate-file-data-on-input mark)
+	   (and (ref-variable translate-file-data-on-output mark)
 		(mark-translation mark)))
 	 'DEFAULT)))
   (if input-region