diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-08 11:32:48 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-08 11:32:48 -0400 |
| commit | c060d15003e3435d4d4c770d8f109f756db13ef5 (patch) | |
| tree | 5c9410e11fe016de62d0172051144d570239de43 /src/elab_print.sml | |
| parent | e9b1040a1f27a07afc7b2bf33522b1058163bf2b (diff) | |
Lifting cons in ElabEnv
Diffstat (limited to 'src/elab_print.sml')
| -rw-r--r-- | src/elab_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index c11b0da1..2b9d7920 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -270,7 +270,7 @@ fun p_decl env ((d, _) : decl) = fun p_file env file = let val (_, pds) = ListUtil.mapfoldl (fn (d, env) => - (ElabUtil.declBinds env d, + (E.declBinds env d, p_decl env d)) env file in |