vocabs.refresh.monitor: use resolve-symlinks

It already exists and actually works on windows

diff --git a/basis/vocabs/refresh/monitor/monitor.factor b/basis/vocabs/refresh/monitor/monitor.factor
index 6e58436efa26caf71fbafeb4b99de149d6fb84f0..c6d55b047ead4664adf693706320aa7d0d5163f1 100644 (file)
--- a/basis/vocabs/refresh/monitor/monitor.factor
+++ b/basis/vocabs/refresh/monitor/monitor.factor
@@ -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 ;