diff options
author | Gary Houston <ghouston@arglist.com> | 1997-07-20 10:03:26 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-07-20 10:03:26 +0000 |
commit | a9488d121883c3db948833de03d34f59f2e8a0d3 (patch) | |
tree | de7446adc67dff4fee28cbc400d09e88ab54848b /libguile/filesys.c | |
parent | eadd48de2b7b916a29da6d36e650c84a76b1a3f4 (diff) | |
download | guile-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.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) |