From a326943f8bfad933cf2508e5607caf45b47ed3f6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 18 Dec 2008 18:42:05 -0600
Subject: [PATCH] better related-words for follow-links.  add

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

diff --git a/basis/io/files/links/links-docs.factor b/basis/io/files/links/links-docs.factor
index 4d448e5372..8419399c92 100644
--- a/basis/io/files/links/links-docs.factor
+++ b/basis/io/files/links/links-docs.factor
@@ -13,8 +13,6 @@ HELP: copy-link
 { $values { "target" "a path to an existing symlink" } { "symlink" "a path to a new symbolic link" } }
 { $description "Copies a symbolic link without following the link." } ;
 
-{ make-link read-link copy-link } related-words
-
 HELP: follow-link
 { $values
      { "path" "a pathname string" }
@@ -29,6 +27,8 @@ HELP: follow-links
 }
 { $description "Follows a chain of symlinks up to " { $link symlink-depth } "." } ;
 
+{ read-link follow-link follow-links } related-words
+
 HELP: symlink-depth
 { $values
      { "value" integer }