Minor code change for readability.

antononcube · Oct 25, 2017 · 0aabc9b · 0aabc9b
1 parent 02f6778
commit 0aabc9b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Misc/RSparseMatrix.m b/Misc/RSparseMatrix.m
@@ -188,8 +188,8 @@ Note that assignment (with Set[__]) is not implemented.
 ToRSparseMatrix[xtabs_Association, opts : OptionsPattern[] ] :=
     Block[{},
       ToRSparseMatrix[ xtabs["XTABMatrix"],
-        "RowNames" -> ToString /@ xtabs["RowNames"],
-        "ColumnNames" -> ToString /@ xtabs["ColumnNames"],
+        "RowNames" -> Map[ToString, xtabs["RowNames"]],
+        "ColumnNames" -> Map[ToString, xtabs["ColumnNames"]],
         opts
       ]
     ]/; MemberQ[ Keys[xtabs], "XTABMatrix" ];