From 5579b84a97cb942fdfd4c4898793f9de95bc03d1 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 7 Feb 2016 19:59:10 -0500
Subject: Merge PVar and PWild, to get more reasonable type-class resolution

---
 src/expl_env.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/expl_env.sml')

diff --git a/src/expl_env.sml b/src/expl_env.sml
index 5712a72d..f7f51be5 100644
--- a/src/expl_env.sml
+++ b/src/expl_env.sml
@@ -404,8 +404,7 @@ fun sgiBinds env (sgi, loc) =
 
 fun patBinds env (p, loc) =
     case p of
-        PWild => env
-      | PVar (x, t) => pushERel env x t
+        PVar (x, t) => pushERel env x t
       | PPrim _ => env
       | PCon (_, _, _, NONE) => env
       | PCon (_, _, _, SOME p) => patBinds env p
-- 
cgit v1.2.3