From 87507a3e17e7afc8ea01b9e0bb25f9a8dbe6b0f0 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 5 Sep 2023 16:23:46 -0400
Subject: Test struct array. Fix trie ?

---
 lib/trie.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/trie.tcl b/lib/trie.tcl
index 467631b7..e5c2c0be 100644
--- a/lib/trie.tcl
+++ b/lib/trie.tcl
@@ -77,7 +77,7 @@ namespace eval ctrie {
         return Tcl_NewStringObj(varName, -1);
     }
     $cc proc startsWithDollarSign {Tcl_Obj* wordobj} bool {
-        return Tcl_GetString(wordobj)[0] == '$';
+        return Tcl_GetString(wordobj)[0] == '\$';
     }
 
     $cc proc addImpl {trie_t** trie int wordc Tcl_Obj** wordv uint64_t value} void {
-- 
cgit v1.2.3