diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-07-22 15:12:20 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-22 15:12:20 -0400 |
commit | e8ceaa0ae216c7c85e810998ab97989e7a83c82d (patch) | |
tree | f26deeee6825b28bb3e6005523f887de3c1a79a4 /src/monoize.sml | |
parent | b1997d2e699e92e83f7130b7b4a4c5467dcdcd27 (diff) |
Simple forms work
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index dbe69c6a..e6c6b6c8 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -383,7 +383,7 @@ fun monoDecl env (all as (d, loc)) = SOME (env, (L'.DValRec (map (fn (x, n, t, e, s) => (x, n, monoType env t, monoExp env e, s)) vis), loc)) end - | L.DExport n => + | L.DExport (ek, n) => let val (_, t, _, s) = Env.lookupENamed env n @@ -394,7 +394,7 @@ fun monoDecl env (all as (d, loc)) = val ts = map (monoType env) (unwind t) in - SOME (env, (L'.DExport (s, n, ts), loc)) + SOME (env, (L'.DExport (ek, s, n, ts), loc)) end end |