From c1caabaa2427dd63e8399341a6257077403f717f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 5 May 2025 10:13:11 +0200 Subject: 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 (): * 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. --- libguile/init.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'libguile/init.c') 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 (); -- cgit v1.2.3