scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scsh/syscalls1.c
View File

@ -112,17 +112,13 @@ s48_value scheme_exec(s48_value prog, s48_value argv, s48_value env)
}
execve(s48_extract_string (prog), unix_argv, unix_env); /* Do it. */
if( env != S48_TRUE ) {
e = errno;
Free(unix_env);
errno = e;
}
e = errno;
if( env != S48_TRUE ) {
Free(unix_env);
}
Free(unix_argv);
errno = e;
return s48_enter_fixnum(errno); // Don't raise an exception since
// we're maybe just testing the path
return s48_enter_fixnum(e); // Don't raise an exception since
// we're maybe just testing the path
}
s48_value scsh_exit(s48_value status)
@ -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