From 246887dce1d8d09ec2a5af5f019613ac064e779c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 18 May 2012 21:02:44 -0700 Subject: * stream.c (open_pipev): Bugfix: program name is included as first element of argv. --- stream.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'stream.c') diff --git a/stream.c b/stream.c index 72b819ff..7175d59a 100644 --- a/stream.c +++ b/stream.c @@ -1551,9 +1551,9 @@ val open_pipevp(val name, val mode_str, val args) name, num(errno), string_utf8(strerror(errno)), nao); } - argv = (char **) chk_malloc((nargs + 1) * sizeof *argv); + argv = (char **) chk_malloc((nargs + 2) * sizeof *argv); - for (i = 0, iter = args; iter; i++, iter = cdr(iter)) { + for (i = 0, iter = cons(name, args); iter; i++, iter = cdr(iter)) { val arg = car(iter); argv[i] = utf8_dup_to(c_str(arg)); } -- cgit v1.2.3