init dep handling for xo-expression2 -> xo-procedure2

This commit is contained in:
Roland Conybeare 2026-01-26 16:05:37 -05:00
commit 9a52d270bd
6 changed files with 115 additions and 3 deletions

View file

@ -5,16 +5,23 @@
#include "init_procedure2.hpp"
#include "init_primitives.hpp"
//#include "procedure2_register_facets.hpp"
//#include "procedure2_register_types.hpp"
#include "procedure2_register_facets.hpp"
#include "procedure2_register_types.hpp"
#include <xo/object2/init_object2.hpp>
#include <xo/gc/CollectorTypeRegistry.hpp>
namespace xo {
using xo::scm::Primitives;
using xo::scm::procedure2_register_facets;
using xo::scm::procedure2_register_types;
using xo::mm::CollectorTypeRegistry;
void
InitSubsys<S_procedure2_tag>::init()
{
procedure2_register_facets();
CollectorTypeRegistry::instance().register_types(&procedure2_register_types);
}
InitEvidence
@ -22,6 +29,9 @@ namespace xo {
{
InitEvidence retval;
/* recursive subsystem deps for xo-object2/ */
retval ^= InitSubsys<S_object2_tag>::require();
/* xo-procedure2/'s own initialization code */
retval ^= Subsystem::provide<S_procedure2_tag>("procedure2", &init);