diff --git a/basis/tools/deploy/deploy.factor b/basis/tools/deploy/deploy.factor index d41a0bc9a3..a90f63f28c 100644 --- a/basis/tools/deploy/deploy.factor +++ b/basis/tools/deploy/deploy.factor @@ -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