Mercurial > urweb
diff src/cjrize.sml @ 111:2d6116de9cca
Closure code generation almost there
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 13 Jul 2008 12:06:47 -0400 |
parents | 813e5a52063d |
children | c5d7ce9ddd57 |
line wrap: on
line diff
--- a/src/cjrize.sml Sun Jul 13 11:43:57 2008 -0400 +++ b/src/cjrize.sml Sun Jul 13 12:06:47 2008 -0400 @@ -155,6 +155,9 @@ ((L'.ESeq (e1, e2), loc), sm) end + | L.EClosure _ => (ErrorMsg.errorAt loc "Nested closure remains in code generation"; + (dummye, sm)) + fun cifyDecl ((d, loc), sm) = case d of L.DVal (x, n, t, e, _) =>