diff options
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 |