From c3907f45df292affceb7a8338fa8be33c6528509 Mon Sep 17 00:00:00 2001
From: Roland Conybeare <rconybeare@gmail.com>
Date: Thu, 22 Jan 2026 17:15:05 -0500
Subject: [PATCH] xo-reader2: + on_parsed_expression_with_semicolon + DefineSsm
 works

---
 include/xo/expression2/DDefineExpr.hpp | 1 +
 src/expression2/DDefineExpr.cpp        | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/include/xo/expression2/DDefineExpr.hpp b/include/xo/expression2/DDefineExpr.hpp
index 1056dbb7..6b7716e3 100644
--- a/include/xo/expression2/DDefineExpr.hpp
+++ b/include/xo/expression2/DDefineExpr.hpp
@@ -56,6 +56,7 @@ namespace xo {
             ///@{
 
             void assign_lhs_name(const DUniqueString * name);
+            void assign_rhs(obj<AExpression> rhs);
 
             ///@}
             /** @defgroup scm-defineexpr-expression-facet **/
diff --git a/src/expression2/DDefineExpr.cpp b/src/expression2/DDefineExpr.cpp
index c8785415..e193c4d4 100644
--- a/src/expression2/DDefineExpr.cpp
+++ b/src/expression2/DDefineExpr.cpp
@@ -67,6 +67,11 @@ namespace xo {
             lhs_var_->assign_valuetype(td);
         }
 
+        void
+        DDefineExpr::assign_rhs(obj<AExpression> x) {
+            this->rhs_ = x;
+        }
+
         bool
         DDefineExpr::pretty(const ppindentinfo & ppii) const
         {