summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-07-20 10:03:26 +0000
committerGary Houston <ghouston@arglist.com>1997-07-20 10:03:26 +0000
commita9488d121883c3db948833de03d34f59f2e8a0d3 (patch)
treede7446adc67dff4fee28cbc400d09e88ab54848b /libguile/filesys.c
parenteadd48de2b7b916a29da6d36e650c84a76b1a3f4 (diff)
downloadguile-a9488d121883c3db948833de03d34f59f2e8a0d3.tar.gz
* 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.
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)