Permalink
Browse files

new_tvar was too restrictive

  • Loading branch information...
1 parent 6181436 commit eae016a9e95d02425272ed8f1f9a6be1f2aea490 @pikatchu committed Apr 15, 2011
Showing with 4 additions and 3 deletions.
  1. +4 −3 compiler/naming.ml
View
@@ -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

0 comments on commit eae016a

Please sign in to comment.