Removed assignments to errno.

scsh/syscalls1.c

@@ -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(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
 }
 
@@ -264,8 +260,7 @@ s48_value scheme_cwd()
  lose:
   {int e = errno;
    Free(buf);
-   errno = e,
+   s48_raise_os_error(e);}
-   s48_raise_os_error(errno);}
 }
 
 /* Process times