Removed assignments to errno.

This commit is contained in:
mainzelm 2001-01-09 10:26:52 +00:00
parent 51552b6842
commit ec5d343b75
1 changed files with 6 additions and 11 deletions

View File

@ -112,16 +112,12 @@ s48_value scheme_exec(s48_value prog, s48_value argv, s48_value env)
}
execve(s48_extract_string (prog), unix_argv, unix_env); /* Do it. */
e = errno;
if( env != S48_TRUE ) {
e = errno;
Free(unix_env);
errno = e;
}
e = errno;
Free(unix_argv);
errno = e;
return s48_enter_fixnum(errno); // Don't raise an exception since
return s48_enter_fixnum(e); // Don't raise an exception since
// we're maybe just testing the path
}
@ -264,8 +260,7 @@ s48_value scheme_cwd()
lose:
{int e = errno;
Free(buf);
errno = e,
s48_raise_os_error(errno);}
s48_raise_os_error(e);}
}
/* Process times