From 5fcf5c2055a666e4e42a2c7dabec1e218aa7cfa9 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Mon, 3 Jul 2023 22:07:35 -0400
Subject: Fix clause memory leak

---
 lib/evaluator.tcl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib')

diff --git a/lib/evaluator.tcl b/lib/evaluator.tcl
index 184aae1a..d8ab616a 100644
--- a/lib/evaluator.tcl
+++ b/lib/evaluator.tcl
@@ -907,6 +907,7 @@ namespace eval Evaluator {
         uint64_t reactions[1000];
         int reactionCount = trieLookup(interp, reactions, 1000,
                                        reactionsToStatementAddition, clauseWithReactingIdWildcard);
+        Tcl_DecrRefCount(clauseWithReactingIdWildcard);
         // printf("React to %s: %d\n", Tcl_GetString(clauseWithReactingIdWildcard), reactionCount);
         for (int i = 0; i < reactionCount; i++) {
             reaction_t* reaction = (reaction_t*)(uintptr_t)reactions[i];
-- 
cgit v1.2.3