mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

cosmetic fixes

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-19 12:51:23 +01:00
parent bcacc6bdb0
commit 40f47f04aa
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/unixsys.d
View file

@ -432,7 +432,6 @@ cl_object
si_spawn_subprocess(cl_object command, cl_object argv, cl_object environ,
cl_object input, cl_object output, cl_object error) {
cl_env_ptr the_env = ecl_process_env();
int parent_write = 0, parent_read = 0, parent_error = 0;
int child_pid;
cl_object pid;
@ -553,7 +552,7 @@ si_spawn_subprocess(cl_object command, cl_object argv, cl_object environ,
}
if (!Null(environ)) {
char **pstrings;
cl_object buffer = from_list_to_execve_argument(environ, &pstrings);
from_list_to_execve_argument(environ, &pstrings);
execve((char*)command->base_string.self, (char **)argv_ptr, pstrings);
} else {
execvp((char*)command->base_string.self, (char **)argv_ptr);