From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 12 Sep 2017 03:39:34 +0000 (+0000)
Subject: Fix syncproc test to avoid bashism.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~30
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c260bae11ec0cb3a08d8cdf792fab642e64ab49;p=mit-scheme.git

Fix syncproc test to avoid bashism.
---

diff --git a/tests/runtime/test-syncproc.scm b/tests/runtime/test-syncproc.scm
index f525d6b41..45013e426 100644
--- a/tests/runtime/test-syncproc.scm
+++ b/tests/runtime/test-syncproc.scm
@@ -66,7 +66,7 @@ USA.
     (let* ((reply (call-with-output-string
 		   (lambda (out)
 		     (run-shell-command
-		      "if read; then echo \"Lose\"; else echo \"Win\"; fi"
+		      "if read x; then echo \"Lose\"; else echo \"Win\"; fi"
 		      'input #f 'output out)))))
       (assert-string= reply "Win\n"))))