summaryrefslogtreecommitdiff
path: root/src/corify.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 10:36:54 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 10:36:54 -0400
commit4688519e58b0b2923e291d6a719a7f34810bfdc1 (patch)
treeb2857ef60e3307635c96f8300b5f515834e32cfc /src/corify.sml
parent9e13248824201d825b9d06b266d045db63f3340d (diff)
Monoize transaction identifiers; improve disjointness prover on irreducible folds; change 'query' type
Diffstat (limited to 'src/corify.sml')
-rw-r--r--src/corify.sml1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/corify.sml b/src/corify.sml
index c03fcf3a..50d47068 100644
--- a/src/corify.sml
+++ b/src/corify.sml
@@ -817,6 +817,7 @@ fun corifyDecl ((d, loc : EM.span), st) =
val ef = (L.EModProj (basis, [], "bind"), loc)
val ef = (L.ECApp (ef, ran'), loc)
+ val ef = (L.ECApp (ef, ran), loc)
val ef = (L.EApp (ef, (L.EApp (e, (L.ERel 0, loc)), loc)), loc)
val eat = (L.CApp ((L.CModProj (basis, [], "transaction"), loc),