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

xo-reader2 stack: refactor for ssm file location

Browse source
This commit is contained in:
Roland Conybeare 2026-03-25 17:11:46 -04:00
commit 7789218ff2
1 changed files with 30 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

55
src/procedure2/SetupProcedure2.cpp
View file

@ -93,42 +93,47 @@ namespace xo {
obj<AAllocator> mm = rcx.allocator();
StringTable * stbl = rcx.stringtable();
scope log(XO_DEBUG(true));
scope log(XO_DEBUG(false));
bool ok = true;
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_cwd_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_cwd_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_nth_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_nth_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_cons_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_cons_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_set_car_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_set_car_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_dict_make_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_dict_make_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_dict_lookup_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_dict_lookup_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_dict_upsert_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_dict_upsert_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
ObjectPrimitives::make_fn_n_args_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
(sink,
ObjectPrimitives::make_fn_n_args_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
ok = ok & (PrimitiveRegistry::install_aux
(sink,
GcPrimitives::make_request_gc_pm(mm, stbl),
flags & InstallFlags::f_generalpurpose));
return ok;
}