From 7a364d252ad409de3c008585a1856a10cb300e0f Mon Sep 17 00:00:00 2001
From: Roland Conybeare <rconybeare@gmail.com>
Date: Wed, 18 Feb 2026 22:40:37 -0800
Subject: [PATCH] xo-reader2 stack: use NumericDispatch for *,/,+,- ops

---
 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 562a984..411b3d3 100644
--- a/include/xo/procedure2/init_primitives.hpp
+++ b/include/xo/procedure2/init_primitives.hpp
@@ -22,7 +22,6 @@ namespace xo {
              *        so we can dispatch on vector, matrix, function types
              **/
             static DPrimitive_gco_2_gco_gco s_mul_gco_gco_pm;
-#endif
 
             /** polymorphic subtract
              *
@@ -30,6 +29,7 @@ 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
              *
diff --git a/src/procedure2/init_primitives.cpp b/src/procedure2/init_primitives.cpp
index 1d1d50f..c3cc517 100644
--- a/src/procedure2/init_primitives.cpp
+++ b/src/procedure2/init_primitives.cpp
@@ -99,7 +99,6 @@ namespace xo {
                                            xtag("y.tseq", y_tseq)));
             return obj<AGCObject>();
         }
-#endif
 
         obj<AGCObject>
         sub_gco_gco(obj<ARuntimeContext> rcx,
@@ -160,6 +159,7 @@ namespace xo {
                                            xtag("y.tseq", y_tseq)));
             return obj<AGCObject>();
         }
+#endif
 
         obj<AGCObject>
         equal_gco_gco(obj<ARuntimeContext> rcx,
@@ -260,10 +260,10 @@ namespace xo {
 #ifdef OSOLETE
         DPrimitive_gco_2_gco_gco
         Primitives::s_mul_gco_gco_pm("_mul", &mul_gco_gco);
-#endif
 
         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);