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

tools.deploy: prevent delay in error deploying of vocabs with no main.

db4
John Benediktsson 2012-07-22 13:24:25 -07:00
parent 76882d2c25
commit a4f3a87add
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/tools/deploy/deploy.factor
View File

@ -4,8 +4,13 @@ USING: tools.deploy.backend system vocabs vocabs.loader kernel
combinators tools.deploy.config.editor ;
IN: tools.deploy
ERROR: no-vocab-main vocab ;
: check-vocab-main ( vocab -- vocab )
[ require ] keep dup vocab-main [ no-vocab-main ] unless ;
: deploy ( vocab -- )
dup find-vocab-root [ deploy* ] [ no-vocab ] if ;
dup find-vocab-root [ check-vocab-main deploy* ] [ no-vocab ] if ;
: deploy-image-only ( vocab image -- )
[ vm ] 2dip