diff src/elab_util.sml @ 9:14b533dbe6cc

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/elab_util.sml	Sat Jan 26 17:10:26 2008 -0500
+++ b/src/elab_util.sml	Sat Jan 26 17:26:14 2008 -0500
@@ -167,5 +167,6 @@
 fun declBinds env (d, _) =
     case d of
         DCon (x, n, k, _) => E.pushCNamedAs env x n k
+      | DVal (x, n, t, _) => E.pushENamedAs env x n t
 
 end