parent: improve efficiency

Author: scivision

+stdlib/+native/parent.m

@@ -14,7 +14,9 @@
 i = stdlib.strempty(p);
 p(i) = ".";
 
-i = ispc() & strcmp(p(~i), stdlib.root_name(pth(~i)));
-p(i) = strcat(p(i), filesep);
+if ispc()
+  i = strcmp(p(~i), stdlib.root_name(pth(~i)));
+  p(i) = strcat(p(i), filesep);
+end
 
 end

private/get_compiler.m

@@ -14,7 +14,7 @@
     case "fortran"
       comp = getenv("FC");
       if isempty(comp)
-        disp("set FC environment variable to the Fortran compiler path via get_compiler('fortran'), or do 'mex -setup c++")
+        disp("set FC environment variable to the Fortran compiler path via get_compiler('fortran'), or do 'mex -setup Fortran")
       end
     case "c++"
       comp = getenv("CXX");
@@ -49,5 +49,3 @@
 end
 
 end
-
-

test/TestParent.m

@@ -18,7 +18,7 @@ function test_parent(tc, p, backend)
 try
   pr = stdlib.parent(p{1}, backend);
 catch e
-  tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
+  tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.stack(1).file + ":" + string(e.stack(1).line) + " " + e.message)
   return
 end
 tc.verifyEqual(pr, p{2}, sprintf("parent(%s, %s)", p{1}, backend))