let
bind_local_var id valu = (
Hashtbl
.remove local_vars id;
Hashtbl
.add local_vars id valu)