diff --git a/libguile/posix-w32.c b/libguile/posix-w32.c index e4a03eb6a..6302eecbe 100644 --- a/libguile/posix-w32.c +++ b/libguile/posix-w32.c @@ -1,4 +1,4 @@ -/* Copyright 2001,2006,2008,2016,2018 +/* Copyright 2001,2006,2008,2016,2018,2021 Free Software Foundation, Inc. This file is part of Guile. @@ -740,22 +740,6 @@ start_child (const char *exec_file, char **argv, CloseHandle (herr); CloseHandle (pi.hThread); - /* Posix requires to call the shell if execvp fails to invoke EXEC_FILE. */ - if (errno_save == ENOEXEC || errno_save == ENOENT) - { - const char *shell = getenv ("ComSpec"); - - if (!shell) - shell = "cmd.exe"; - - if (c_strcasecmp (exec_file, shell) != 0) - { - argv[0] = (char *)exec_file; - return start_child (shell, argv, reading, c2p, writing, p2c, - infd, outfd, errfd); - } - } - errno = errno_save; return pid; }