From a9488d121883c3db948833de03d34f59f2e8a0d3 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sun, 20 Jul 1997 10:03:26 +0000 Subject: * filesys.c (scm_close): oops, don't call SCM_INUM twice on the argument. * ioext.h: new prototypes. * ioext.c (scm_primitive_dup, scm_primitive_dup2): new procedures. --- libguile/filesys.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/filesys.c') 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) -- cgit v1.2.3