From b537e81a3563ad4fc82676c210ac09aaf748a128 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 3 Oct 2001 14:44:45 +0000
Subject: [PATCH] Test correctly for EBADF.

---
 scsh/syscalls1.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/syscalls1.c b/scsh/syscalls1.c
index 2f5f0b5..1b882a6 100644
--- 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);
 }