From 1595302e131b43e248388c6378d77d0cedcaf59e Mon Sep 17 00:00:00 2001
From: Roland Conybeare <rconybeare@gmail.com>
Date: Thu, 19 Feb 2026 09:03:02 -0800
Subject: [PATCH] xo-interpreter2 stack: streamline op== impl + utests

---
 include/xo/procedure2/init_primitives.hpp | 2 +-
 src/procedure2/init_primitives.cpp        | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/include/xo/procedure2/init_primitives.hpp b/include/xo/procedure2/init_primitives.hpp
index 411b3d3..14f5fdc 100644
--- a/include/xo/procedure2/init_primitives.hpp
+++ b/include/xo/procedure2/init_primitives.hpp
@@ -29,13 +29,13 @@ namespace xo {
              *        so we can dispatch on vector, matrix, function types
              **/
             static DPrimitive_gco_2_gco_gco s_sub_gco_gco_pm;
-#endif
 
             /** polymorphic equality comparison
              *
              *  TODO: this will want to move to x-numeric/
              **/
             static DPrimitive_gco_2_gco_gco s_equal_gco_gco_pm;
+#endif
 
 #ifdef NOT_YET
             static Primitive_f64_1_f64 s_neg_f64_pm;
diff --git a/src/procedure2/init_primitives.cpp b/src/procedure2/init_primitives.cpp
index c3cc517..1fd3950 100644
--- a/src/procedure2/init_primitives.cpp
+++ b/src/procedure2/init_primitives.cpp
@@ -159,7 +159,6 @@ namespace xo {
                                            xtag("y.tseq", y_tseq)));
             return obj<AGCObject>();
         }
-#endif
 
         obj<AGCObject>
         equal_gco_gco(obj<ARuntimeContext> rcx,
@@ -219,6 +218,7 @@ namespace xo {
                                            xtag("y.tseq", y_tseq)));
             return obj<AGCObject>();
         }
+#endif
 
 #ifdef NOT_YET
         double
@@ -263,10 +263,10 @@ namespace xo {
 
         DPrimitive_gco_2_gco_gco
         Primitives::s_sub_gco_gco_pm("_sub", &sub_gco_gco);
-#endif
 
         DPrimitive_gco_2_gco_gco
         Primitives::s_equal_gco_gco_pm("_equal", &equal_gco_gco);
+#endif
 
 #ifdef NOT_YET
         Primitive_f64_1_f64