diff options
Diffstat (limited to 'src/main/stanza/ir-utils.stanza')
| -rw-r--r-- | src/main/stanza/ir-utils.stanza | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/main/stanza/ir-utils.stanza b/src/main/stanza/ir-utils.stanza index 00b573a6..14383977 100644 --- a/src/main/stanza/ir-utils.stanza +++ b/src/main/stanza/ir-utils.stanza @@ -131,12 +131,17 @@ public defn children (e:Expression) -> List<Expression> : map(f,e) to-list(es) +public var mname : Symbol = `blah public defn exp-hash (e:Expression) -> Int : turn-off-debug(false) - val i = symbol-hash(to-symbol(to-string(e))) + val i = symbol-hash(to-symbol(string-join(map(to-string,list(mname `.... e))))) + ;val i = symbol-hash(to-symbol(to-string(e))) turn-on-debug(false) i +public defn type-hash (t:Type) -> Int : + symbol-hash(to-symbol(to-string(t))) + ;============= Useful functions ============== public defn create-mask (n:Symbol,dt:Type) -> Field : Field{n,DEFAULT,_} $ match(dt) : |