Mercurial > urweb

comparison src/elab_util.sml @ 9:14b533dbe6cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added simple expression constructors to Elab
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 17:26:14 -0500
parents a455a9f85cc3
children dde5c52e5e5e
comparison
equal deleted inserted replaced
8:a455a9f85cc3 9:14b533dbe6cc
165 structure E = ElabEnv 165 structure E = ElabEnv
166 166
167 fun declBinds env (d, _) = 167 fun declBinds env (d, _) =
168 case d of 168 case d of
169 DCon (x, n, k, _) => E.pushCNamedAs env x n k 169 DCon (x, n, k, _) => E.pushCNamedAs env x n k
170 | DVal (x, n, t, _) => E.pushENamedAs env x n t
170 171
171 end 172 end