Use infix operator of MapApply

Fixes #279
dishmint · Feb 3, 2024 · b049e56 · b049e56
1 parent 1db0188
commit b049e56
Show file tree

Hide file tree

Showing 2 changed files with 432 additions and 430 deletions.
diff --git a/FaizonZaman/LexicalCases/Kernel/LexicalCases.wl b/FaizonZaman/LexicalCases/Kernel/LexicalCases.wl
@@ -97,10 +97,10 @@ StripNames[True, c_Condition] := c
 StripNames[True, se_?LexicalPatternQ] := Replace[se, p_Pattern :> Extract[2][p], Infinity]
 StripNames[False,se_?LexicalPatternQ]:= se
 
-PrependArticleKey[{article_String, data_List}] := Map[Apply[Prepend]]@Thread[{data, "Article" -> article}]
+PrependArticleKey[{article_String, data_List}] := Prepend@@@Thread[{data, "Article" -> article}]
 PrependArticleKey[{article_String, data_Missing}] := <|"Article" -> article, "Match" -> data, "Position" -> {}|>
 
-PrependArticleKey[{article_Integer, data_List}] := Map[Apply[Prepend]]@Thread[{data, "Article" -> article}]
+PrependArticleKey[{article_Integer, data_List}] := Prepend@@@Thread[{data, "Article" -> article}]
 PrependArticleKey[{article_Integer, data_Missing}] := <|"Article" -> article, "Match" -> data, "Position" -> {}|>
 
 (* Text Cleanup *)