Avoid obsolete ToFileName[]

FlexibleSUSY · Jul 14, 2014 · 0cb9cbf · 0cb9cbf
1 parent 44f653f
commit 0cb9cbf
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/config/list_sarah_model_files.sh.in b/config/list_sarah_model_files.sh.in
@@ -39,11 +39,11 @@ cat <<EOF | ("@MATH@" 2> /dev/stdout 1> /dev/null) | convert_dos_paths
 FindModelFiles[dir_String, modelName_String, submodeldir_] :=
     Module[{files, modelFile, modelDir},
            If[submodeldir =!= False,
-              modelDir  = ToFileName[ToFileName[{dir, modelName}], submodeldir];
-              modelFile = ToFileName[{modelDir}, modelName <> "-" <> submodeldir <> ".m"];
+              modelDir  = FileNameJoin[{dir, modelName, submodeldir}];
+              modelFile = FileNameJoin[{modelDir, modelName <> "-" <> submodeldir <> ".m"}];
               ,
-              modelDir  = ToFileName[{dir, modelName}];
-              modelFile = ToFileName[{modelDir}, modelName <> ".m"];
+              modelDir  = FileNameJoin[{dir, modelName}];
+              modelFile = FileNameJoin[{modelDir, modelName <> ".m"}];
              ];
            files = Join[{modelFile},
                         FileNameJoin[{modelDir, #}]& /@ {"parameters.m", "particles.m"}