Mercurial > urweb

diff src/elab_print.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 1ab48e37d0ef
line wrap: on
line diff
--- a/src/elab_print.sml	Sun Jun 08 11:32:48 2008 -0400
+++ b/src/elab_print.sml	Sun Jun 08 12:27:08 2008 -0400
@@ -151,7 +151,8 @@
 
 fun p_exp' par env (e, _) =
     case e of
-        ERel n =>
+        EPrim p => Prim.p_t p
+      | ERel n =>
         if !debug then
             string (#1 (E.lookupERel env n) ^ "_" ^ Int.toString n)
         else