diff options
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r-- | libguile/filesys.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c index f9d4c4070..b2b13244a 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -274,7 +274,7 @@ scm_close (SCM fd_or_port) fd = SCM_INUM (fd_or_port); SCM_DEFER_INTS; scm_evict_ports (fd); /* see scsh manual. */ - SCM_SYSCALL (rv = close (SCM_INUM (fd))); + SCM_SYSCALL (rv = close (fd)); /* following scsh, closing an already closed file descriptor is not an error. */ if (rv < 0 && errno != EBADF) |