tools.deploy.backend: clean up

db4
Slava Pestov 2010-02-18 03:57:10 +13:00
parent 049b87bda9
commit bf72c89060
1 changed files with 5 additions and 6 deletions

View File

@ -1,4 +1,4 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces make continuations.private kernel.private init USING: namespaces make continuations.private kernel.private init
assocs kernel vocabs words sequences memory io system arrays assocs kernel vocabs words sequences memory io system arrays
@ -19,13 +19,12 @@ TUPLE: vocab-manifest vocabs libraries ;
: copy-resources ( manifest name dir -- ) : copy-resources ( manifest name dir -- )
append-path swap vocabs>> [ copy-vocab-resources ] with each ; append-path swap vocabs>> [ copy-vocab-resources ] with each ;
ERROR: cant-deploy-library-file library ; ERROR: can't-deploy-library-file library ;
<PRIVATE
: copy-library ( dir library -- ) : copy-library ( dir library -- )
dup find-library-file dup find-library-file
[ nip swap over file-name append-path copy-file ] [ swap over file-name append-path copy-file ]
[ cant-deploy-library-file ] if* ; [ can't-deploy-library-file ] ?if ;
PRIVATE>
: copy-libraries ( manifest name dir -- ) : copy-libraries ( manifest name dir -- )
append-path swap libraries>> [ copy-library ] with each ; append-path swap libraries>> [ copy-library ] with each ;