Using Fold instead of the monadic pipeline symbol.

antononcube · Oct 25, 2017 · 02f6778 · 02f6778
1 parent 3e3b1fb
commit 02f6778
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/MonadicProgramming/MonadicTextAnalyzer.m b/MonadicProgramming/MonadicTextAnalyzer.m
@@ -199,9 +199,11 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
         sentences = context["sentences"],
 
         True,
+        (* Return[
+          TextAMon[xs,context] ⟹ TextAMonSentences[] ⟹ TextAMonComputePOSTags[args] ]; *)
         Return[
-          TextAMon[xs,context] ⟹ TextAMonSentences[] ⟹ TextAMonComputePOSTags[args] ];
-
+          Fold[ TextAMon[xs,context], {TextAMonSentences[], TextAMonComputePOSTags[args]}];
+        ];
       ];
 
       posTags =