summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r--libguile/filesys.c2
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)