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