diff options
author | Gary Houston <ghouston@arglist.com> | 1997-07-20 05:49:39 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1997-07-20 05:49:39 +0000 |
commit | eadd48de2b7b916a29da6d36e650c84a76b1a3f4 (patch) | |
tree | eb293bc3a550059f807e340592417f09b74dcde4 /libguile/fports.h | |
parent | 9c29ac668ff5444ab9e61d357062d090af2c1850 (diff) | |
download | guile-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.h | 3 |
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 */ |