From 441a8b8926eedbe315a0630054d0c948f9630c14 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 21 Oct 2011 15:34:44 -0500 Subject: [PATCH] Checked in some code on accident. --- basis/tools/rename/authors.txt | 1 - basis/tools/rename/rename.factor | 18 ------------------ 2 files changed, 19 deletions(-) delete mode 100644 basis/tools/rename/authors.txt delete mode 100644 basis/tools/rename/rename.factor 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 ;