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_util.sml | |
| parent | e9b1040a1f27a07afc7b2bf33522b1058163bf2b (diff) | |
Lifting cons in ElabEnv
Diffstat (limited to 'src/elab_util.sml')
| -rw-r--r-- | src/elab_util.sml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/elab_util.sml b/src/elab_util.sml index 56be1328..7a40a889 100644 --- a/src/elab_util.sml +++ b/src/elab_util.sml @@ -286,11 +286,4 @@ fun exists {kind, con, exp} k = end -structure E = ElabEnv - -fun declBinds env (d, _) = - case d of - DCon (x, n, k, c) => E.pushCNamedAs env x n k (SOME c) - | DVal (x, n, t, _) => E.pushENamedAs env x n t - end |