Mercurial > urweb

diff src/elab_util.sml @ 3:daa4f1d7a663

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating cons and decls
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 15:26:12 -0500
parents 64f09f7822c3
children 258261a53842
line wrap: on
line diff
--- a/src/elab_util.sml	Sat Jan 26 14:27:33 2008 -0500
+++ b/src/elab_util.sml	Sat Jan 26 15:26:12 2008 -0500
@@ -75,4 +75,10 @@
 
 end
 
+structure E = ElabEnv
+
+fun declBinds env (d, _) =
+    case d of
+        DCon (x, k, _) => #1 (E.pushCNamed env x k)
+
 end