summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-08-30 23:35:10 +0200
committerAndy Wingo <wingo@pobox.com>2016-08-30 23:35:10 +0200
commit2fa2e50a0fdb49e70d6882e06d1a2dcc2ae10a69 (patch)
tree73aa2e3a049edb5109ec521eccde6d064a2fa7a8 /libguile/init.c
parent4256e0655f6b2aae53c3345196288c92423ff277 (diff)
downloadguile-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.c2
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 ();