Mercurial > urweb

diff 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
line wrap: on
line diff
--- a/src/elab_util.sml	Sat Jan 26 15:29:09 2008 -0500
+++ b/src/elab_util.sml	Sat Jan 26 16:02:47 2008 -0500
@@ -79,6 +79,6 @@
 
 fun declBinds env (d, _) =
     case d of
-        DCon (x, k, _) => #1 (E.pushCNamed env x k)
+        DCon (x, n, k, _) => E.pushCNamedAs env x n k
 
 end