Mercurial > urweb

diff src/elaborate.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
line wrap: on
line diff
--- a/src/elaborate.sml	Sat Jan 26 17:10:26 2008 -0500
+++ b/src/elaborate.sml	Sat Jan 26 17:26:14 2008 -0500
@@ -201,12 +201,12 @@
 
       | L.CVar s =>
         (case E.lookupC env s of
-             E.CNotBound =>
+             E.NotBound =>
              (conError env (UnboundCon (loc, s));
               (cerror, kerror))
-           | E.CRel (n, k) =>
+           | E.Rel (n, k) =>
              ((L'.CRel n, loc), k)
-           | E.CNamed (n, k) =>
+           | E.Named (n, k) =>
              ((L'.CNamed n, loc), k))
       | L.CApp (c1, c2) =>
         let