suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve error reporting when using exec

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-12 10:21:26 -04:00
parent f36e3ad16c
commit efed709f69
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/racket/src/port.c
View File

@ -8203,12 +8203,20 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
END_XFORM_SKIP; END_XFORM_SKIP;
err = MSC_IZE(execv)(command, argv); err = MSC_IZE(execv)(command, argv);
if (err)
err = errno;
/* If we get here it failed; give up */ /* If we get here it failed; give up */
/* using scheme_signal_error will leave us in the forked process, /* using scheme_signal_error will leave us in the forked process,
so use scheme_console_printf instead */ so use scheme_console_printf instead */
scheme_console_printf("racket: exec failed (%d)\n", err); scheme_console_printf("racket: exec failed (%s%serrno=%d)\n",
#ifdef NO_STRERROR_AVAILABLE
"", "",
#else
strerror(err), "; ",
#endif
err);
/* back to Racket signal dispositions: */ /* back to Racket signal dispositions: */
START_XFORM_SKIP; START_XFORM_SKIP;