From a16e550a2284ab7485429afae24f20032e5bac17 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 20 Dec 2009 15:17:43 -0500
Subject: Another try at reasonable Especialize, this time with a custom
 traversal

---
 src/core_env.sml | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/core_env.sml')

diff --git a/src/core_env.sml b/src/core_env.sml
index 4c50bdd7..9001e29c 100644
--- a/src/core_env.sml
+++ b/src/core_env.sml
@@ -368,4 +368,13 @@ fun patBindsN (p, loc) =
       | PCon (_, _, _, SOME p) => patBindsN p
       | PRecord xps => foldl (fn ((_, p, _), count) => count + patBindsN p) 0 xps
 
+fun patBindsL (p, loc) =
+    case p of
+        PWild => []
+      | PVar (x, t) => [(x, t)]
+      | PPrim _ => []
+      | PCon (_, _, _, NONE) => []
+      | PCon (_, _, _, SOME p) => patBindsL p
+      | PRecord xps => rev (ListUtil.mapConcat (rev o patBindsL o #2) xps)
+
 end
-- 
cgit v1.2.3