From fe3d09d11bbf07d0d9aa78a9a07338958fc40e52 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 5 Aug 2016 14:27:34 -0700 Subject: [PATCH] edwin/process.scm: transposo (like a typo but larger) --- src/edwin/process.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 2.25.1