Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
2:64f09f7822c3 3:daa4f1d7a663
73 S.Return _ => true 73 S.Return _ => true
74 | S.Continue _ => false 74 | S.Continue _ => false
75 75
76 end 76 end
77 77
78 structure E = ElabEnv
79
80 fun declBinds env (d, _) =
81 case d of
82 DCon (x, k, _) => #1 (E.pushCNamed env x k)
83
78 end 84 end