Checked in some code on accident.

diff --git a/basis/tools/rename/authors.txt b/basis/tools/rename/authors.txt
deleted file mode 100644 (file)
index 7c1b2f2..0000000
--- a/basis/tools/rename/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Doug Coleman

diff --git a/basis/tools/rename/rename.factor b/basis/tools/rename/rename.factor
deleted file mode 100644 (file)
index 52fa7f7..0000000
--- a/basis/tools/rename/rename.factor
+++ /dev/null
@@ -1,18 +0,0 @@
-! Copyright (C) 2011 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: combinators.short-circuit io.directories.search io.files
-io.files.info io.pathnames kernel sequences ;
-IN: tools.rename
-
-ERROR: directory-contains-files-error path ;
-
-: directory-contains-files? ( path -- ? )
-    qualified-directory-files [ link-info directory? ] all? not ;
-
-: check-new-vocab-path ( old new -- old new )
-    2dup [ vocab-path parent-directory ] dip append-path
-    { [ exists? ] [ directory-contains-files? ] } 1&&
-    [ directory-contains-files-error ] unless ;
-
-: rename-vocab ( old new -- )
-    check-new-vocab-path 2drop ;