open-process: fix regression.

TXR 228, which introduced open-subprocess, broke open-process.

* stream.c (open_process): Pass args correctly as the fourth
argument of open_subprocess, rather than the third.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 0e19ab73..915ed7e5 100644
--- a/stream.c
+++ b/stream.c
@@ -4285,7 +4285,7 @@ static val open_subprocess(val name, val mode_str, val args, val fun)
 
 val open_process(val name, val mode_str, val args)
 {
-  return open_subprocess(name, mode_str, nil, args);
+  return open_subprocess(name, mode_str, args, nil);
 }
 #else