Find common directory path: Difference between revisions

Content deleted Content added

Inline

@@ Line 186: / Line 186: @@
 <lang rebol>commonPathPrefix: function [lst][
-    paths: map lst => [split.path &]
+    paths: map lst => [split.by:"/" &]
     common: new []
@@ Line 200: / Line 200: @@
         if found -> 'common ++ part
     ]
-    return "/" ++ join.path common
+    return join.with:"/" common
 ]