diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-26 11:11:13 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 11:11:13 -0400 |
| commit | 84104b2ae60ef293b9d837998b8162d58e8d4a0e (patch) | |
| tree | e810ad8175699aff18aa8e2e3835a784553f0213 /src/corify.sml | |
| parent | 77790187bb1c1e0de956d4bbc7795678fb0c6544 (diff) | |
Explify efold
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 94654064..893e0f2a 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -299,6 +299,7 @@ fun corifyExp st (e, loc) = | L.ERecord xes => (L'.ERecord (map (fn (c, e, t) => (corifyCon st c, corifyExp st e, corifyCon st t)) xes), loc) | L.EField (e1, c, {field, rest}) => (L'.EField (corifyExp st e1, corifyCon st c, {field = corifyCon st field, rest = corifyCon st rest}), loc) + | L.EFold _ => raise Fail "Corify EFold" fun corifyDecl ((d, loc : EM.span), st) = case d of |