Mercurial > urweb

diff src/elab_env.sml @ 243:2b9dfaffb008

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Transactions and queries, at source level
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Aug 2008 14:48:33 -0400
parents 19e5791923d0
children 42dfb0d61cf0
line wrap: on
line diff
--- a/src/elab_env.sml	Thu Aug 28 14:05:47 2008 -0400
+++ b/src/elab_env.sml	Thu Aug 28 14:48:33 2008 -0400
@@ -1049,4 +1049,13 @@
             pushClass env n
         end
 
+fun patBinds env (p, loc) =
+    case p of
+        PWild => env
+      | PVar (x, t) => pushERel env x t
+      | PPrim _ => env
+      | PCon (_, _, _, NONE) => env
+      | PCon (_, _, _, SOME p) => patBinds env p
+      | PRecord xps => foldl (fn ((_, p, _), env) => patBinds env p) env xps
+
 end