parent
97654b67c1
commit
e70fcf159d
|
@ -103,7 +103,7 @@ PRIVATE>
|
|||
] }
|
||||
[
|
||||
[ trim-tail-separators ]
|
||||
[ trim-head-separators ] bi* path-separator glue
|
||||
[ trim-head-separators ] bi* "/" glue
|
||||
]
|
||||
} cond ;
|
||||
|
||||
|
|
|
@ -35,9 +35,7 @@ M: string vocab-path ( string -- path/f )
|
|||
PRIVATE>
|
||||
|
||||
: vocab-dir ( vocab -- dir )
|
||||
vocab-name
|
||||
os windows? { { CHAR: . CHAR: \\ } } { { CHAR: . CHAR: / } } ?
|
||||
substitute ;
|
||||
vocab-name { { CHAR: . CHAR: / } } substitute ;
|
||||
|
||||
: vocab-dir+ ( vocab str/f -- path )
|
||||
[ vocab-name "." split ] dip
|
||||
|
|
Loading…
Reference in New Issue