diff options
Diffstat (limited to 'motus/js/reload.ml')
-rw-r--r-- | motus/js/reload.ml | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/motus/js/reload.ml b/motus/js/reload.ml index f0b581f..ee9ab37 100644 --- a/motus/js/reload.ml +++ b/motus/js/reload.ml @@ -18,11 +18,18 @@ let process : t -> State.state -> State.state = in let new_state = - { state with analysis = Motus_lib.Wordlist.remove_word state.analysis word } + { state with + analysis = Motus_lib.Wordlist.remove_word state.analysis word + ; catalog = Motus_lib.Wordlist.remove_word state.catalog word + } in (* Get the new proposition if any *) let current_prop = - Initialize.get_proposition state.length new_state.analysis state.rules + Initialize.get_proposition + ~catalog:new_state.catalog + state.length + new_state.analysis + state.rules in match current_prop with | None -> new_state |