summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2025-05-05 10:13:11 +0200
committerAndy Wingo <wingo@pobox.com>2025-05-05 11:04:44 +0200
commitc1caabaa2427dd63e8399341a6257077403f717f (patch)
treea76b0af1b062a4410f863863a77ccf95b7de9203 /libguile/init.c
parente6f550697fe453694b5ebb0673a13a1bdbfe7788 (diff)
downloadguile-c1caabaa2427dd63e8399341a6257077403f717f.tar.gz
Add ephemeron objects
* module/ice-9/ephemerons.scm: * libguile/ephemerons.c: * libguile/ephemerons.h: * test-suite/tests/ephemerons.test: New files. * am/bootstrap.am (SOURCES): * test-suite/Makefile.am (SCM_TESTS): * libguile/Makefile.am (libguile_@GUILE_EFFECTIVE_VERSION@_la_SOURCES): (DOT_X_FILES, DOT_DOC_FILES, noinst_HEADERS): Wire ephemerons into build. * libguile/scm.h (scm_tc7_ephemeron): New tc7. * module/oop/goops.scm (<ephemeron>): * module/system/base/types/internal.scm (heap-tags): * module/system/vm/assembler.scm (system): * libguile/evalext.c (scm_self_evaluating_p): * libguile/goops.c (scm_class_of): * libguile/init.c (scm_i_init_guile): * libguile/print.c (iprin1): Add cases for new tc7.
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 592024d01..049e18f9a 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -58,6 +58,7 @@
#include "deprecation.h"
#include "dynl.h"
#include "dynwind.h"
+#include "ephemerons.h"
#include "eq.h"
#include "error.h"
#include "eval.h"
@@ -368,6 +369,7 @@ scm_i_init_guile (struct gc_stack_addr base)
scm_bootstrap_vm ();
scm_register_atomic ();
scm_register_custom_ports ();
+ scm_register_ephemerons ();
scm_register_fdes_finalizers ();
scm_register_finalizers ();
scm_register_foreign ();