join: do not posix()

Author: scivision

+stdlib/join.m

@@ -6,24 +6,26 @@
   other {mustBeTextScalar}
 end
 
+if stdlib.is_absolute(other)
 
-b = stdlib.posix(base);
-o = stdlib.posix(other);
+  p = other;
 
-if startsWith(o, '/') || (ispc() && stdlib.is_absolute(o))
-  p = o;
-  return
-end
+elseif strlength(base)
 
-p = b;
-if strlength(o)
-  if endsWith(p, '/')
-    p = strcat(p, o);
-  elseif strlength(p)
-    p = strcat(p, '/', o);
+  if strlength(other)
+    if endsWith(base, '/')
+      p = strcat(base, other);
+    else
+      p = strcat(base, '/', other);
+    end
   else
-    p = o;
+    p = base;
   end
+
+else
+
+  p = other;
+
 end
 
 end

test/TestJoin.m

@@ -13,7 +13,7 @@
 {"a/b", "c/d", "a/b/c/d"}, ...
 {"ab/cd", "/ef", "/ef"}, ...
 {stdlib.homedir(), "", stdlib.homedir()}, ...
-{matlabroot, "bin", stdlib.posix(matlabroot + "/bin")}
+{matlabroot, "bin", matlabroot + "/bin"}
 }
 end