diff options
author | Andy Wingo <wingo@pobox.com> | 2016-08-30 23:35:10 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-08-30 23:35:10 +0200 |
commit | 2fa2e50a0fdb49e70d6882e06d1a2dcc2ae10a69 (patch) | |
tree | 73aa2e3a049edb5109ec521eccde6d064a2fa7a8 /libguile/init.c | |
parent | 4256e0655f6b2aae53c3345196288c92423ff277 (diff) | |
download | guile-2fa2e50a0fdb49e70d6882e06d1a2dcc2ae10a69.tar.gz |
Add file descriptor finalizers
* doc/ref/posix.texi (Ports and File Descriptors): Document new
interfaces.
* libguile/filesys.c (scm_close, scm_close_fdes)
* libguile/fports.c (fport_close):
* libguile/ioext.c (scm_primitive_move_to_fdes): Call
scm_run_fdes_finalizers.
* module/ice-9/fdes-finalizers.scm:
* test-suite/tests/fdes-finalizers.test:
* libguile/fdes-finalizers.h:
* libguile/fdes-finalizers.c: New files.
* module/Makefile.am:
* test-suite/Makefile.am:
* libguile/Makefile.am:
* libguile.h:
* libguile/init.c: Wire up new files.
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/init.c b/libguile/init.c index 7e0c30d9c..1e4889c97 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -56,6 +56,7 @@ #include "libguile/eval.h" #include "libguile/evalext.h" #include "libguile/expand.h" +#include "libguile/fdes-finalizers.h" #include "libguile/feature.h" #include "libguile/filesys.h" #include "libguile/finalizers.h" @@ -398,6 +399,7 @@ scm_i_init_guile (void *base) scm_bootstrap_programs (); scm_bootstrap_vm (); scm_register_r6rs_ports (); + scm_register_fdes_finalizers (); scm_register_foreign (); scm_register_foreign_object (); scm_register_srfi_1 (); |