diff --git a/basis/tools/rename/authors.txt b/basis/tools/rename/authors.txt deleted file mode 100644 index 7c1b2f2279..0000000000 --- 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 index 52fa7f7aa6..0000000000 --- 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 ;