roland/xo-umbrella2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-interpreter2 stack: move fn_n_args() to ObjectPrimitives

Browse source
This commit is contained in:
Roland Conybeare 2026-03-15 14:35:44 -05:00
commit aed354cf67
2 changed files with 0 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/interpreter2/VirtualSchematikaMachine.cpp
View file

@ -86,8 +86,6 @@ namespace xo {
}
this->global_env_ = reader_.global_env();
this->install_core_primitives();
}
obj<AAllocator>
@ -875,45 +873,6 @@ namespace xo {
}
}
// ----- primitive: fn_n_args() -----
obj<AGCObject>
xfer_fn_n_args(obj<ARuntimeContext> rcx,
obj<AGCObject> fn_gco)
{
scope log(XO_DEBUG(true));
log && log(xtag("fn_gco.tseq", fn_gco._typeseq()));
log && log(xtag("fn_gco.tname", TypeRegistry::id2name(fn_gco._typeseq())));
auto fn_proc = FacetRegistry::instance().try_variant<AProcedure,AGCObject>(fn_gco);
assert(fn_proc);
return DInteger::box<AGCObject>(rcx.allocator(), fn_proc.n_args());
}
static DPrimitive_gco_1_gco s_fn_n_args_pm("_fn_n_args",
&xfer_fn_n_args);
// ----- install primitives -----
void
VirtualSchematikaMachine::install_core_primitives()
{
/* fn_n_args */
{
const DUniqueString * name
= reader_.intern_string("fn_n_args");
global_env_->_upsert_value
(mm_.to_op(),
name,
Reflect::require<DPrimitive_gco_1_gco>(),
obj<AGCObject,DPrimitive_gco_1_gco>(&s_fn_n_args_pm));
}
}
} /*namespace scm*/
} /*namespace xo*/