From 6150e4f135fdab479af31a93c2e8ae89d414c224 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 14 Mar 2014 02:24:35 -0700
Subject: * stream.c (run): Fix MinGW build failures. The run function doesn't
 work right with arguments, though: the win command line is broken.

---
 stream.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'stream.c')

diff --git a/stream.c b/stream.c
index 1744c28c..14ec811b 100644
--- a/stream.c
+++ b/stream.c
@@ -2341,7 +2341,7 @@ static val run(val name, val args)
 #else
 static val run(val command, val args)
 {
-  val win_cmdline = win_make_cmdline(cons(name, args));
+  val win_cmdline = win_make_cmdline(cons(command, default_bool_arg(args)));
   return sh(win_cmdline);
 }
 #endif
-- 
cgit v1.2.3