vocabs.refresh.monitor: use resolve-symlinks

It already exists and actually works on windows
db4
Joe Groff 2011-11-16 20:35:42 -08:00
parent 72feb14521
commit 07f206b31b
1 changed files with 1 additions and 5 deletions

View File

@ -17,15 +17,11 @@ TR: convert-separators "/\\" ".." ;
: path>vocab-name ( path -- vocab )
dup ".factor" tail? [ parent-directory ] when ;
: scrub-links-in-path ( path -- path' )
normalize-path path-components "/"
[ append-path follow-links ] reduce ;
: chop-vocab-root ( path -- path' )
"resource:" prepend-path normalize-path
dup vocab-roots get
[ [ normalize-path ] map ]
[ [ scrub-links-in-path ] map ] bi append
[ [ resolve-symlinks ] map ] bi append
[ head? ] with find nip
?head drop ;