From 43f120dd107c978bb9b003f3200837b467d460cd Mon Sep 17 00:00:00 2001
From: Roland Conybeare <rconybeare@gmail.com>
Date: Wed, 18 Feb 2026 22:00:30 -0800
Subject: [PATCH] xo-interpreter2 stack: use xo-numeric/ to support op*

---
 include/xo/numeric/NumericPrimitives.hpp | 4 +++-
 src/numeric/NumericPrimitives.cpp        | 4 ++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/include/xo/numeric/NumericPrimitives.hpp b/include/xo/numeric/NumericPrimitives.hpp
index 376f94b9..3eab681a 100644
--- a/include/xo/numeric/NumericPrimitives.hpp
+++ b/include/xo/numeric/NumericPrimitives.hpp
@@ -14,7 +14,9 @@ namespace xo {
          **/
         class NumericPrimitives {
         public:
-            /** poly divide **/
+            /** polymorphic (in both arguments) multiply **/
+            static DPrimitive_gco_2_gco_gco s_mul_gco_gco_pm;
+            /** polymorphic (in both arguments) divide **/
             static DPrimitive_gco_2_gco_gco s_div_gco_gco_pm;
         };
     }
diff --git a/src/numeric/NumericPrimitives.cpp b/src/numeric/NumericPrimitives.cpp
index 5666a751..a17de848 100644
--- a/src/numeric/NumericPrimitives.cpp
+++ b/src/numeric/NumericPrimitives.cpp
@@ -11,6 +11,10 @@ namespace xo {
 
     namespace scm {
 
+        DPrimitive_gco_2_gco_gco
+        NumericPrimitives::s_mul_gco_gco_pm("_mul",
+                                            &NumericDispatch::multiply);
+
         DPrimitive_gco_2_gco_gco
         NumericPrimitives::s_div_gco_gco_pm("_div",
                                             &NumericDispatch::divide);