Mercurial > urweb

comparison src/elab_util.sml @ 5:258261a53842

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating files
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 16:02:47 -0500
parents daa4f1d7a663
children 38bf996e1c2e
comparison
equal deleted inserted replaced
4:5c3cc348e9e6 5:258261a53842
77 77
78 structure E = ElabEnv 78 structure E = ElabEnv
79 79
80 fun declBinds env (d, _) = 80 fun declBinds env (d, _) =
81 case d of 81 case d of
82 DCon (x, k, _) => #1 (E.pushCNamed env x k) 82 DCon (x, n, k, _) => E.pushCNamedAs env x n k
83 83
84 end 84 end