From 7789218ff2d317f34ad977687c0878adb010944e Mon Sep 17 00:00:00 2001 From: Roland Conybeare Date: Wed, 25 Mar 2026 17:11:46 -0400 Subject: [PATCH] xo-reader2 stack: refactor for ssm file location --- src/procedure2/SetupProcedure2.cpp | 55 ++++++++++++++++-------------- 1 file changed, 30 insertions(+), 25 deletions(-) diff --git a/src/procedure2/SetupProcedure2.cpp b/src/procedure2/SetupProcedure2.cpp index 9dec25c..00f2460 100644 --- a/src/procedure2/SetupProcedure2.cpp +++ b/src/procedure2/SetupProcedure2.cpp @@ -93,42 +93,47 @@ namespace xo { obj 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; }