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

diff --git a/src/edwin/process.scm b/src/edwin/process.scm
index e2962afc3df5e28241fcdbbfc3d85610fcfd793a..4f5bbf6336f6018a5a51af6192f6edb1c57fe2b5 100644 (file)
--- 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))