diff src/elab.sml @ 14:f1c36df29ed7

Primitive type constants
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 12:27:08 -0400
parents d89477f07c1e
children 4ab19c19665f
line wrap: on
line diff
--- a/src/elab.sml	Sun Jun 08 11:32:48 2008 -0400
+++ b/src/elab.sml	Sun Jun 08 12:27:08 2008 -0400
@@ -65,7 +65,8 @@
 withtype con = con' located
 
 datatype exp' =
-         ERel of int
+         EPrim of Prim.t
+       | ERel of int
        | ENamed of int
        | EApp of exp * exp
        | EAbs of string * con * exp