Revert "fork/exec: debug."
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 25 May 2018 09:21:26 +0000 (11:21 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 25 May 2018 09:21:26 +0000 (11:21 +0200)
This reverts commit f0315ac0d9acd66a30dbb192334f443459b7ed16.

src/posix.c

index 267f4d83ec07587d9c3a2b0a096446752e4e9a5b..332c5807d4a7617dadc32e33d652ac1e7de6f975 100644 (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));
 }