summaryrefslogtreecommitdiff
path: root/libguile/fports.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/fports.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/fports.h')
-rw-r--r--libguile/fports.h3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/fports.h b/libguile/fports.h
index b8834462f..1323759b5 100644
--- a/libguile/fports.h
+++ b/libguile/fports.h
@@ -56,10 +56,9 @@ extern scm_ptobfuns scm_pipob;
extern SCM scm_setbuf0 SCM_P ((SCM port));
-extern long scm_mode_bits SCM_P ((char *modes));
+extern void scm_evict_ports SCM_P ((int fd));
extern SCM scm_open_file SCM_P ((SCM filename, SCM modes));
extern SCM scm_stdio_to_port SCM_P ((FILE *file, char *name, char *modes));
-extern SCM scm_port_mode SCM_P ((SCM port));
extern void scm_init_fports SCM_P ((void));
#endif /* FPORTSH */