diff options
| author | Omar Rizwan <omar@omar.website> | 2023-09-05 20:23:46 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-09-05 20:23:46 +0000 |
| commit | 87507a3e17e7afc8ea01b9e0bb25f9a8dbe6b0f0 (patch) | |
| tree | fb2d1140b5096ae7f5ceca3f1aada9de3b10cd24 /lib | |
| parent | Implement Vulkan line (diff) | |
| download | folk-87507a3e17e7afc8ea01b9e0bb25f9a8dbe6b0f0.tar.gz folk-87507a3e17e7afc8ea01b9e0bb25f9a8dbe6b0f0.zip | |
Test struct array. Fix trie ?
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/trie.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |