get_scope : fix definition_id bug
This commit is contained in:
parent
50a1e48f28
commit
f9b3887753
@ -7,7 +7,7 @@ let get_binder_name : 'a Var.t -> string = fun (v: _ Var.t) ->
|
|||||||
else Var.to_name v
|
else Var.to_name v
|
||||||
|
|
||||||
let make_def_id name i =
|
let make_def_id name i =
|
||||||
(name ^ (string_of_int i), i+1)
|
(name ^ "#" ^ (string_of_int i), i+1)
|
||||||
|
|
||||||
let add_shadowing_def : (int * _ Var.t) -> def -> def_map -> (int * def_map) = fun (i,var) def env ->
|
let add_shadowing_def : (int * _ Var.t) -> def -> def_map -> (int * def_map) = fun (i,var) def env ->
|
||||||
if Var.is_generated var then (i,env)
|
if Var.is_generated var then (i,env)
|
||||||
|
Loading…
Reference in New Issue
Block a user