From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 5 Aug 2016 21:27:34 +0000 (-0700)
Subject: edwin/process.scm: transposo (like a typo but larger)
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fe3d09d11bbf07d0d9aa78a9a07338958fc40e52;p=mit-scheme.git

edwin/process.scm: transposo (like a typo but larger)
---

diff --git a/src/edwin/process.scm b/src/edwin/process.scm
index e2962afc3..4f5bbf633 100644
--- a/src/edwin/process.scm
+++ b/src/edwin/process.scm
@@ -235,9 +235,9 @@ Initialized from the SHELL environment variable."
   (let loop ((processes edwin-processes)
 	     (output? #f))
     (if (pair? processes)
-	(loop (or (poll-process-for-output (car processes))
-		  output?)
-	      (cdr processes))
+	(loop (cdr processes)
+	      (or (poll-process-for-output (car processes))
+		  output?))
 	output?)))
 
 (define input-buffer (make-string 512))