aboutsummaryrefslogtreecommitdiff
path: root/src/main/stanza/ir-utils.stanza
diff options
context:
space:
mode:
authorazidar2016-02-04 09:23:19 -0800
committerazidar2016-02-09 18:57:06 -0800
commitb32acb9a52a426087226284f4a1e2890cbdadc00 (patch)
treee1771c82f9e707d95b507e67455a1e7fbbffea6a /src/main/stanza/ir-utils.stanza
parentddeac42c426dbda9000eef1b74f8d5032c55f58f (diff)
Added Expand Whens pass
Diffstat (limited to 'src/main/stanza/ir-utils.stanza')
-rw-r--r--src/main/stanza/ir-utils.stanza4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/main/stanza/ir-utils.stanza b/src/main/stanza/ir-utils.stanza
index 3fc8b155..22ee228b 100644
--- a/src/main/stanza/ir-utils.stanza
+++ b/src/main/stanza/ir-utils.stanza
@@ -147,8 +147,8 @@ public defn children (e:Expression) -> List<Expression> :
public var mname : Symbol = `blah
public defn exp-hash (e:Expression) -> Int :
turn-off-debug(false)
- val i = symbol-hash(to-symbol(string-join(map(to-string,list(mname `.... e)))))
- ;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