From 6d7a359f8f7757b1e23fa7c0feaf535541dcc84a Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 2 Sep 2024 19:49:52 -0400
Subject: Bugfix some text replacement things

---
 typecheck.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'typecheck.c')

diff --git a/typecheck.c b/typecheck.c
index 4d4c080e..27e20b04 100644
--- a/typecheck.c
+++ b/typecheck.c
@@ -1377,7 +1377,8 @@ bool is_constant(env_t *env, ast_t *ast)
     }
     case TextJoin: {
         auto text = Match(ast, TextJoin);
-        return !text->children || !text->children->next;
+        // TODO: support short literal strings
+        return !text->children;
     }
     case Not: return is_constant(env, Match(ast, Not)->value);
     case Negative: return is_constant(env, Match(ast, Negative)->value);
-- 
cgit v1.2.3