diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-17 12:59:52 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-17 12:59:52 -0400 |
| commit | 31b2c3d5e8740967ead001b40ca25f3ca3628da7 (patch) | |
| tree | f53372fb289df90aba3485f6471596c6d861ec81 /src/reduce.sml | |
| parent | d4639a7ab7971b2eea4951ec26062471bfec88d9 (diff) | |
MonoReduce
Diffstat (limited to 'src/reduce.sml')
| -rw-r--r-- | src/reduce.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/reduce.sml b/src/reduce.sml index cdf24725..5b00ac5a 100644 --- a/src/reduce.sml +++ b/src/reduce.sml @@ -171,6 +171,6 @@ and reduceExp env = U.Exp.mapB {kind = kind, con = con, exp = exp, bind = bind} fun decl env d = d -val reduce = U.File.mapB {kind = kind, con = con, exp = exp, decl = decl, bind = bind} CoreEnv.empty +val reduce = U.File.mapB {kind = kind, con = con, exp = exp, decl = decl, bind = bind} E.empty end |