diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-01-26 15:26:12 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-01-26 15:26:12 -0500 |
| commit | e0a8e775a4c1e12debb2a3fa458007340685dc9d (patch) | |
| tree | ed45e466a53dc18a1c772e2bdaad2e5f7ac8025b /src/elab_util.sml | |
| parent | 485f8c00cc43334ba7bb429a830eb3b651ff92f6 (diff) | |
Elaborating cons and decls
Diffstat (limited to 'src/elab_util.sml')
| -rw-r--r-- | src/elab_util.sml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/elab_util.sml b/src/elab_util.sml index 8a0463cf..f5640d15 100644 --- a/src/elab_util.sml +++ b/src/elab_util.sml @@ -75,4 +75,10 @@ fun exists f k = end +structure E = ElabEnv + +fun declBinds env (d, _) = + case d of + DCon (x, k, _) => #1 (E.pushCNamed env x k) + end |