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 2e1ae9bca3
30 changed files with 213 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

18
xo-object2/src/object2/DList.cpp
View file

@ -17,7 +17,7 @@ namespace xo {
using xo::print::APrintable;
using xo::mm::AGCObject;
using xo::facet::FacetRegistry;
using xo::facet::typeseq;
//using xo::facet::typeseq;
namespace scm {
static DList s_null(obj<AGCObject>(), nullptr);
@ -28,6 +28,12 @@ namespace xo {
return &s_null;
}
obj<AGCObject,DList>
DList::nil()
{
return obj<AGCObject,DList>(_nil());
}
DList *
DList::_cons(obj<AAllocator> mm,
obj<AGCObject> car,
@ -38,6 +44,14 @@ namespace xo {
return new (mem) DList(car, cdr);
}
obj<AGCObject,DList>
DList::cons(obj<AAllocator> mm,
obj<AGCObject> car,
DList * cdr)
{
return obj<AGCObject,DList>(_cons(mm, car, cdr));
}
#ifdef OBSOLETE
DList *
DList::list(obj<AAllocator> mm,
@ -137,8 +151,6 @@ namespace xo {
obj<APrintable> elt
= FacetRegistry::instance().variant<APrintable, AGCObject>(l->head_);
assert(elt.data());
if (!pps->print_upto(elt))