Mercurial > urweb

diff src/elab_util.sml @ 14:f1c36df29ed7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Primitive type constants
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 12:27:08 -0400
parents 6049e2193bf2
children 4ab19c19665f
line wrap: on
line diff
--- a/src/elab_util.sml	Sun Jun 08 11:32:48 2008 -0400
+++ b/src/elab_util.sml	Sun Jun 08 12:27:08 2008 -0400
@@ -205,7 +205,8 @@
 
         and mfe' ctx (eAll as (e, loc)) =
             case e of
-                ERel _ => S.return2 eAll
+                EPrim _ => S.return2 eAll
+              | ERel _ => S.return2 eAll
               | ENamed _ => S.return2 eAll
               | EApp (e1, e2) =>
                 S.bind2 (mfe ctx e1,