let
set_constant_value env uid value =
Hashtbl
.replace env.constants uid value