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

fix error reporting for chdir in forked process

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-22 12:10:41 -06:00
parent fbea19f35c
commit c76cee4775
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7792,7 +7792,10 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
{ {
Scheme_Object *dir; Scheme_Object *dir;
dir = scheme_get_param(scheme_current_config(), MZCONFIG_CURRENT_DIRECTORY); dir = scheme_get_param(scheme_current_config(), MZCONFIG_CURRENT_DIRECTORY);
scheme_os_setcwd(SCHEME_PATH_VAL(dir), 0); if (!scheme_os_setcwd(SCHEME_PATH_VAL(dir), 1)) {
scheme_console_printf("racket: chdir failed to: %s\n", SCHEME_BYTE_STR_VAL(dir));
_exit(1);
}
} }
/* Exec new process */ /* Exec new process */
@ -7816,7 +7819,7 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
/* 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("mzscheme: exec failed (%d)\n", err); scheme_console_printf("racket: exec failed (%d)\n", err);
/* back to MzScheme signal dispositions: */ /* back to MzScheme signal dispositions: */
START_XFORM_SKIP; START_XFORM_SKIP;