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

xo-interpreter2: + nil + cons

Browse source
This commit is contained in:
Roland Conybeare 2026-03-11 16:19:40 -05:00
commit 7c3d546982
2 changed files with 33 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/interpreter2/VirtualSchematikaMachine.cpp
View file

@ -15,6 +15,7 @@
#include "VsmRcx.hpp"
#include "Closure.hpp"
#include <xo/object2/Sequence.hpp>
#include <xo/object2/List.hpp>
#include <xo/numeric/NumericDispatch.hpp>
#include <xo/expression2/DefineExpr.hpp>
#include <xo/expression2/ApplyExpr.hpp>
@ -914,7 +915,7 @@ namespace xo {
static DPrimitive_gco_0 s_cwd_pm("_cwd",
&xfer_cwd);
// ----- primitive: fn_nth() -----
// ----- primitive: nth() -----
// TODO: seq_gc -> obj<ASequence>
// n_gco -> obj<AGCObject,DInteger>
@ -934,6 +935,24 @@ namespace xo {
static DPrimitive_gco_2_gco_gco s_nth_pm("_nth", &xfer_nth);
// ----- 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() -----
obj<AGCObject>
@ -1038,6 +1057,18 @@ namespace xo {
obj<AGCObject,DPrimitive_gco_2_gco_gco>(&s_nth_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