diff options
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 { |