xo-interpreter2 stack: refactor: move cons() pm to object2/

This commit is contained in:
Roland Conybeare 2026-03-15 11:51:37 -05:00
commit be680fcc55

View file

@ -918,21 +918,6 @@ namespace xo {
// ----- primitive: cons() -----
obj<AGCObject>
xfer_cons(obj<ARuntimeContext> rcx,
obj<AGCObject> car,
obj<AGCObject> cdr)
{
(void)rcx;
auto cdr_list = obj<AGCObject,DList>::from(cdr);
return DList::cons(rcx.allocator(),
car,
cdr_list.data());
}
static DPrimitive_gco_2_gco_gco s_cons_pm("_cons", &xfer_cons);
// ----- primitive: fn_n_args() -----
@ -984,18 +969,6 @@ namespace xo {
obj<AGCObject,DPrimitive_gco_0>(&s_cwd_pm));
}
/* cons */
{
const DUniqueString * name
= reader_.intern_string("cons");
global_env_->_upsert_value
(mm_.to_op(),
name,
Reflect::require<DPrimitive_gco_2_gco_gco>(),
obj<AGCObject,DPrimitive_gco_2_gco_gco>(&s_cons_pm));
}
/* fn_n_args */
{
const DUniqueString * name