diff options
author | 2008-11-01 11:17:29 -0400 | |
---|---|---|
committer | 2008-11-01 11:17:29 -0400 | |
commit | 3c78af90b54d01c97ab75fd7290281dfb96921ee (patch) | |
tree | 60d3ec0e0ab4ba36e8ad9396aad35e05d4725153 /src/elab_env.sml | |
parent | 70232ad319a6d86aa1302976919e4c1b126a36f8 (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) |