artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Revert "fork/exec: debug."

Browse source 
This reverts commit f0315ac0d9acd66a30dbb192334f443459b7ed16.
This commit is contained in:
Jan Nieuwenhuizen 2018-05-25 11:21:26 +02:00
parent 342195bbbd
commit 4ee1c9595e
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/posix.c
View file

@ -272,7 +272,6 @@ execl_ (SCM file_name, SCM args) ///((name . "execl"))
{
char *c_argv[100];
int i = 0;
eputs ("core:execl file_name="); write_error_ (file_name); eputs ("\n");
int n = 0;
c_argv[i++] = string_to_cstring_ (file_name, string_to_cstring_buf+n);
n += length__ (STRING (file_name)) + 1;
@ -285,11 +284,6 @@ execl_ (SCM file_name, SCM args) ///((name . "execl"))
args = CDR (args);
}
c_argv[i] = 0;
i = 0;
while (c_argv[i])
{
eputs (" argv["); eputs (itoa (i)); eputs ("]: "); eputs (c_argv[i++]); eputs ("\n");
}
return MAKE_NUMBER (execve (c_argv[0], c_argv, g_environment));
}