summaryrefslogtreecommitdiff
path: root/libguile/filesys.h
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-07-20 05:49:39 +0000
committerGary Houston <ghouston@arglist.com>1997-07-20 05:49:39 +0000
commiteadd48de2b7b916a29da6d36e650c84a76b1a3f4 (patch)
treeeb293bc3a550059f807e340592417f09b74dcde4 /libguile/filesys.h
parent9c29ac668ff5444ab9e61d357062d090af2c1850 (diff)
downloadguile-eadd48de2b7b916a29da6d36e650c84a76b1a3f4.tar.gz
* fluids.c (next_fluid_num): don't do
SCM_THREAD_CRITICAL_SECTION_START/END unless USE_THREADS is defined. * ports.h: prototypes too. * ports.c (scm_mode_bits, scm_port_mode): moved from fports.c. * fports.h: prototype too. * fports.c (scm_evict_ports): moved from ioext.c. * ports.c (scm_close_port): return a boolean instead of unspecified. throw an error if an error other than EBADF occurs. * filesys.h: scm_close prototype. * filesys.c (scm_close): new procedure, can close file descriptors and ports (scsh compatible). * ports.c (scm_flush_all_ports): SCM_PROC incorrectly allowed an optional argument.
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r--libguile/filesys.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h
index e8e3fe773..3c251919b 100644
--- a/libguile/filesys.h
+++ b/libguile/filesys.h
@@ -58,6 +58,7 @@ extern SCM scm_chown SCM_P ((SCM path, SCM owner, SCM group));
extern SCM scm_chmod SCM_P ((SCM port_or_path, SCM mode));
extern SCM scm_umask SCM_P ((SCM mode));
extern SCM scm_open SCM_P ((SCM path, SCM flags, SCM mode));
+extern SCM scm_close (SCM fd_or_port);
extern SCM scm_stat SCM_P ((SCM fd_or_path));
extern SCM scm_link SCM_P ((SCM oldpath, SCM newpath));
extern SCM scm_rename SCM_P ((SCM oldname, SCM newname));