cygwin: environment-related fixes.

* stream.c (run): replace_env takes only one argument.

* tests/018/process.tl: *child-env* tests are reporting some extra
environment variables on Windows; let's just disable them.

1 files changed, 14 insertions, 13 deletions

diff --git a/tests/018/process.tl b/tests/018/process.tl
index a1970738..ce545dc3 100644
--- a/tests/018/process.tl
+++ b/tests/018/process.tl
@@ -26,16 +26,17 @@
       (fcmd (let ((*stdout* *stdnull*)) (sh "echo foo"))) ""
       (fcmd (let ((*stderr* *stdout*)) (sh "echo foo 1>&2"))) "foo\n")))
 
-(mtest
-  (let ((*child-env* '("a=b")))
-    (get-lines (open-process "/usr/bin/env" "r")))
-  ("a=b")
-  (let ((*child-env* nil))
-    (get-lines (open-process "/usr/bin/env" "r")))
-  nil)
-
-(test
-  (fcmd
-    (let ((*child-env* '("a=b")))
-      (run "/usr/bin/env")))
-  "a=b\n")
+(caseq (os-symbol)
+  ((:cygwin :cygnal))
+  (t (mtest
+       (let ((*child-env* '("a=b")))
+	 (get-lines (open-process "/usr/bin/env" "r")))
+       ("a=b")
+       (let ((*child-env* nil))
+	 (get-lines (open-process "/usr/bin/env" "r")))
+       nil)
+     (test
+       (fcmd
+	 (let ((*child-env* '("a=b")))
+	   (run "/usr/bin/env")))
+       "a=b\n")))