roland/xo-procedure2
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 42b5cc7aea
3 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/procedure2/ObjectPrimitives.cpp
View file

@ -133,6 +133,30 @@ namespace xo {
return DPrimitive_gco_3_dict_string_gco::_make(mm, "dict_upsert", &xfer_dict_upsert);
}
// ----- 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());
}
DPrimitive_gco_1_gco *
ObjectPrimitives::make_fn_n_args_pm(obj<AAllocator> mm)
{
return DPrimitive_gco_1_gco::_make(mm, "fn_n_args", &xfer_fn_n_args);
}
} /*namespace scm*/
} /*namespace xo*/