another error-conversion repair

This commit is contained in:
Matthew Flatt 2012-05-26 19:46:19 -06:00
parent 20179cf0a7
commit cb8975b8b3

View File

@ -9155,7 +9155,7 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
} else { } else {
mzCLOSE_FILE_HANDLE(err_subprocess, 1); mzCLOSE_FILE_HANDLE(err_subprocess, 1);
} }
scheme_system_error(name, "fork", errid); scheme_system_error(name, "fork", fork_errno);
return scheme_false; return scheme_false;
case 0: /* child */ case 0: /* child */