Test correctly for EBADF.

2001-10-03 14:44:45 +00:00 · 2001-10-03 14:44:45 +00:00 · b537e81a35
parent 83644a3093
commit b537e81a35
1 changed files with 1 additions and 1 deletions
--- a/scsh/syscalls1.c
+++ b/scsh/syscalls1.c
@ -531,7 +531,7 @@ s48_value scsh_close(s48_value sch_fdes)
  int retval = close (s48_extract_fixnum (sch_fdes));
  if (retval == 0)
    return S48_TRUE;
-  else if (retval == EBADF)
+  else if (errno == EBADF)
    return S48_FALSE;
  else s48_raise_os_error_1 (errno, sch_fdes);
 }