diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-26 11:09:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 11:09:30 -0400 |
| commit | 77790187bb1c1e0de956d4bbc7795678fb0c6544 (patch) | |
| tree | d748a92db1c3c4b8466e6cd0728b7cf93832a84c /src/explify.sml | |
| parent | 1d4b2683a02155a474d79436247d8a1d293237ae (diff) | |
Elaborate efold
Diffstat (limited to 'src/explify.sml')
| -rw-r--r-- | src/explify.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/explify.sml b/src/explify.sml index 0a84c5fe..86d408c6 100644 --- a/src/explify.sml +++ b/src/explify.sml @@ -79,6 +79,7 @@ fun explifyExp (e, loc) = | L.ERecord xes => (L'.ERecord (map (fn (c, e, t) => (explifyCon c, explifyExp e, explifyCon t)) xes), loc) | L.EField (e1, c, {field, rest}) => (L'.EField (explifyExp e1, explifyCon c, {field = explifyCon field, rest = explifyCon rest}), loc) + | L.EFold _ => raise Fail "Explify EFold" | L.EError => raise Fail ("explifyExp: EError at " ^ EM.spanToString loc) |