xo-interpreter2 stack: refactor: move cons() pm to object2/
This commit is contained in:
parent
174e363c9a
commit
be680fcc55
1 changed files with 0 additions and 27 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue