Fixed reading from instance's input ports. Fixed unique naming bug.

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))