From b780cff8e43bb9834ecd44f33ae8d33bb8528d82 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Thu, 19 Feb 2026 23:58:49 -0500
Subject: Code cleanup

---
 src/compile/binops.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/compile/binops.c')

diff --git a/src/compile/binops.c b/src/compile/binops.c
index acf1e031..89111a5f 100644
--- a/src/compile/binops.c
+++ b/src/compile/binops.c
@@ -228,8 +228,10 @@ Text_t compile_binary_op(env_t *env, ast_t *ast) {
                      type_to_text(rhs_t), " values");
     }
     case Concat: {
-        if (overall_t == PATH_TYPE) return Texts("Path$concat(", lhs, ", ", rhs, ")");
         switch (overall_t->tag) {
+        case PathType: {
+            return Texts("Path$concat(", lhs, ", ", rhs, ")");
+        }
         case TextType: {
             return Texts("Text$concat(", lhs, ", ", rhs, ")");
         }
-- 
cgit v1.2.3