new_tvar was too restrictive

pikatchu · Apr 15, 2011 · eae016a · eae016a
1 parent 6181436
commit eae016a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/compiler/naming.ml b/compiler/naming.ml
@@ -181,10 +181,11 @@ end = struct
     let t, env, id = new_id t env x in
     { t with types = env }, id
 
-  let new_tvar t x = 
+  let new_tvar t (p, x) = 
     let env = t.tvars in
-    let t, env, id = new_id t env x in
-    { t with tvars = env }, id
+    let id = Ident.make x in
+    let env = SMap.add x id env in
+    { t with tvars = env }, (p, id)
 
   let new_cstr t x = 
     let env = t.cstrs in