Mercurial > urweb

comparison src/elab_env.sml @ 447:b77863cd0be2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating 'let'
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 11:17:29 -0400
parents cb5897276abf
children 85819353a84f
comparison
equal deleted inserted replaced
446:86c063fedc4d 447:b77863cd0be2
1073 case #1 (hnormSgn env sgn) of 1073 case #1 (hnormSgn env sgn) of
1074 SgnConst sgis => SOME (sgnSeekConstraints (str, sgis)) 1074 SgnConst sgis => SOME (sgnSeekConstraints (str, sgis))
1075 | SgnError => SOME [] 1075 | SgnError => SOME []
1076 | _ => NONE 1076 | _ => NONE
1077 1077
1078 fun edeclBinds env (d, loc) =
1079 case d of
1080 EDVal (x, t, _) => pushERel env x t
1081 | EDValRec vis => foldl (fn ((x, t, _), env) => pushERel env x t) env vis
1082
1078 fun declBinds env (d, loc) = 1083 fun declBinds env (d, loc) =
1079 case d of 1084 case d of
1080 DCon (x, n, k, c) => pushCNamedAs env x n k (SOME c) 1085 DCon (x, n, k, c) => pushCNamedAs env x n k (SOME c)
1081 | DDatatype (x, n, xs, xncs) => 1086 | DDatatype (x, n, xs, xncs) =>
1082 let 1087 let