aboutsummaryrefslogtreecommitdiff
path: root/motus/js/next.ml
diff options
context:
space:
mode:
Diffstat (limited to 'motus/js/next.ml')
-rw-r--r--motus/js/next.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/motus/js/next.ml b/motus/js/next.ml
index 658590d..5f24883 100644
--- a/motus/js/next.ml
+++ b/motus/js/next.ml
@@ -19,7 +19,7 @@ let process : t -> State.state -> State.state =
List.fold_left
~f:(Motus_lib.Persistence.add_word rules)
~init:(Motus_lib.Persistence.empty_data ())
- state.analysis.Motus_lib.Persistence.element
+ (Motus_lib.Persistence.words state.analysis)
in
let propositions = state.current_prop :: state.propositions