3006 |
|
|
3007 |
(*************************************************************************) |
(*************************************************************************) |
3008 |
(* *) |
(* *) |
3009 |
|
(* Remove swarmer *) |
3010 |
|
(* *) |
3011 |
|
(*************************************************************************) |
3012 |
|
|
3013 |
|
let remove_swarmer file_swarmer = |
3014 |
|
match file_swarmer with |
3015 |
|
None -> () |
3016 |
|
| Some sw -> if not (has_secondaries sw) |
3017 |
|
then HS.remove swarmers_by_name sw.t_s |
3018 |
|
else lprintf_nl () "Tried to remove swarmer with secondaries" |
3019 |
|
|
3020 |
|
(*************************************************************************) |
3021 |
|
(* *) |
3022 |
(* subfiles *) |
(* subfiles *) |
3023 |
(* *) |
(* *) |
3024 |
(*************************************************************************) |
(*************************************************************************) |