diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-31 10:36:54 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 10:36:54 -0400 |
| commit | 4688519e58b0b2923e291d6a719a7f34810bfdc1 (patch) | |
| tree | b2857ef60e3307635c96f8300b5f515834e32cfc /src/corify.sml | |
| parent | 9e13248824201d825b9d06b266d045db63f3340d (diff) | |
Monoize transaction identifiers; improve disjointness prover on irreducible folds; change 'query' type
Diffstat (limited to 'src/corify.sml')
| -rw-r--r-- | src/corify.sml | 1 |
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), |