Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
791:5368deb3764b 792:d20d6afc1206
45 (*prefaces "simpl" [("c", P.p_con env c), 45 (*prefaces "simpl" [("c", P.p_con env c),
46 ("c'", P.p_con env c')];*) 46 ("c'", P.p_con env c')];*)
47 #1 c' 47 #1 c'
48 end, 48 end,
49 bind = fn (env, U.Con.RelC (x, k)) => E.pushCRel env x k 49 bind = fn (env, U.Con.RelC (x, k)) => E.pushCRel env x k
50 | (env, U.Con.NamedC (x, n, k)) => E.pushCNamedAs env x n k NONE 50 | (env, U.Con.NamedC (x, n, k, co)) => E.pushCNamedAs env x n k co
51 | (env, _) => env} 51 | (env, _) => env}
52 52
53 val p_kind = P.p_kind 53 val p_kind = P.p_kind
54 54
55 datatype kind_error = 55 datatype kind_error =