From 513b4b37084125c522924d3d124907bbd9d223e5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 18 Dec 2008 19:32:09 -0600
Subject: [PATCH] use read-link instead, remove dependency on unix. oops

---
 basis/io/files/links/links.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/io/files/links/links.factor b/basis/io/files/links/links.factor
index 21cab64a2f..1212d579db 100644
--- a/basis/io/files/links/links.factor
+++ b/basis/io/files/links/links.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors io.backend io.files.info io.files.types
-io.pathnames kernel math namespaces system unix vocabs.loader ;
+io.pathnames kernel math namespaces system vocabs.loader ;
 IN: io.files.links
 
 HOOK: make-link os ( target symlink -- )
@@ -14,7 +14,7 @@ HOOK: read-link os ( symlink -- path )
 os unix? [ "io.files.links.unix" require ] when
 
 : follow-link ( path -- path' )
-    [ parent-directory ] [ read-symbolic-link ] bi append-path ;
+    [ parent-directory ] [ read-link ] bi append-path ;
 
 SYMBOL: symlink-depth
 10 symlink-depth set-global