- let metasenv, uo1 = saturate metasenv uo1 in
- let metasenv, uo2 = saturate metasenv uo2 in
+ let metasenv, uo1 =
+ if grow_left then saturate metasenv uo1 else metasenv, None in
+ let metasenv, uo2 =
+ if grow_right then saturate metasenv uo2 else metasenv, None in