io.pathnames: fix separator when appending paths in Windows
parent
a5c0ba98d0
commit
b477c43293
|
@ -89,7 +89,7 @@ PRIVATE>
|
||||||
|
|
||||||
: append-relative-path ( path1 path2 -- path )
|
: append-relative-path ( path1 path2 -- path )
|
||||||
[ trim-tail-separators ]
|
[ trim-tail-separators ]
|
||||||
[ trim-head-separators ] bi* "/" glue ;
|
[ trim-head-separators ] bi* path-separator glue ;
|
||||||
|
|
||||||
: append-path ( path1 path2 -- path )
|
: append-path ( path1 path2 -- path )
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue