diff options
Diffstat (limited to 'src/main/stanza/ir-utils.stanza')
| -rw-r--r-- | src/main/stanza/ir-utils.stanza | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/main/stanza/ir-utils.stanza b/src/main/stanza/ir-utils.stanza index 2fb92407..8cfd1541 100644 --- a/src/main/stanza/ir-utils.stanza +++ b/src/main/stanza/ir-utils.stanza @@ -67,7 +67,11 @@ public defn get-sym-hash (m:InModule,keywords:List<Symbol>) -> HashTable<Symbol, s*[i] == '_' and digits?(substring(s*,i + 1)) match(i*) : (i:False) : - sym-hash[s] = 0 + if key?(sym-hash,s) : + val num = sym-hash[s] + sym-hash[s] = max(num,0) + else : + sym-hash[s] = 0 (i:Int) : val name = to-symbol(substring(s*,0,i)) val digit = to-int(substring(s*,i + 1)) |