Mercurial > urweb

diff src/elab_err.sml @ 792:d20d6afc1206

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Improvements while working on Graftid
author Adam Chlipala <adamc@hcoop.net>
date Tue, 12 May 2009 18:02:25 -0400
parents 915ec60592d4
children cb30dd2ba353
line wrap: on
line diff
--- a/src/elab_err.sml	Sun May 10 10:13:41 2009 -0400
+++ b/src/elab_err.sml	Tue May 12 18:02:25 2009 -0400
@@ -47,7 +47,7 @@
                                                   #1 c'
                                               end,
                            bind = fn (env, U.Con.RelC (x, k)) => E.pushCRel env x k
-                                   | (env, U.Con.NamedC (x, n, k)) => E.pushCNamedAs env x n k NONE
+                                   | (env, U.Con.NamedC (x, n, k, co)) => E.pushCNamedAs env x n k co
                                    | (env, _) => env}
 
 val p_kind = P.p_kind