Как насчет этого?
let list_1 =
if is_proximity leo bob then
create_player list_1 (* Or, something like (new_player () :: list_1)? *)
else
list_1
in ...
Предупреждение, которое вы видели, указывает на тип вашего выражения, это список какого-то типа, а не типа единицы.Если вы хотите использовать list_1
после этого, вы можете использовать let ... in ...
или глобальный let
.