From a4f3a87add0618dde679faa876c8baf8f48a1fd0 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 22 Jul 2012 13:24:25 -0700 Subject: [PATCH] tools.deploy: prevent delay in error deploying of vocabs with no main. --- basis/tools/deploy/deploy.factor | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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