From 27736ed0b6fa86a31bd1bed24910d82ae8ff43cb Mon Sep 17 00:00:00 2001 From: Roland Conybeare Date: Wed, 25 Mar 2026 00:10:42 -0400 Subject: [PATCH] xo-procedure: + set-car primitive --- src/procedure2/SetupProcedure2.cpp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/procedure2/SetupProcedure2.cpp b/src/procedure2/SetupProcedure2.cpp index 520df9b..9dec25c 100644 --- a/src/procedure2/SetupProcedure2.cpp +++ b/src/procedure2/SetupProcedure2.cpp @@ -109,6 +109,10 @@ namespace xo { (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)); ok = ok & (PrimitiveRegistry::install_aux (sink, ObjectPrimitives::make_dict_make_pm(mm, stbl),