diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-01 11:17:29 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-01 11:17:29 -0400 |
| commit | 3f497272d327fea2638006c751d812dbbc449c78 (patch) | |
| tree | 60d3ec0e0ab4ba36e8ad9396aad35e05d4725153 /src/elab_env.sml | |
| parent | 89f97891a33b5c0a8971d3508059a139a8815091 (diff) | |
Elaborating 'let'
Diffstat (limited to 'src/elab_env.sml')
| -rw-r--r-- | src/elab_env.sml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/elab_env.sml b/src/elab_env.sml index edda9f38..f4f5d2cb 100644 --- a/src/elab_env.sml +++ b/src/elab_env.sml @@ -1075,6 +1075,11 @@ fun projectConstraints env {sgn, str} = | SgnError => SOME [] | _ => NONE +fun edeclBinds env (d, loc) = + case d of + EDVal (x, t, _) => pushERel env x t + | EDValRec vis => foldl (fn ((x, t, _), env) => pushERel env x t) env vis + fun declBinds env (d, loc) = case d of DCon (x, n, k, c) => pushCNamedAs env x n k (SOME c) |