diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-05 10:13:11 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-05 11:04:44 +0200 |
commit | c1caabaa2427dd63e8399341a6257077403f717f (patch) | |
tree | a76b0af1b062a4410f863863a77ccf95b7de9203 /libguile/init.c | |
parent | e6f550697fe453694b5ebb0673a13a1bdbfe7788 (diff) | |
download | guile-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.c | 2 |
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 (); |