steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Checked in some code on accident.

db4
Doug Coleman 2011-10-21 15:34:44 -05:00
parent 93d6807d33
commit 441a8b8926
2 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/tools/rename/authors.txt
View File

@ -1 +0,0 @@
Doug Coleman

18
basis/tools/rename/rename.factor
View File

@ -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 ;