From 932315a85224b475621dfe3687e408bcdd13e9e9 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 21 Nov 2011 14:20:19 -0800 Subject: [PATCH] tools.deploy.macosx: oops, logic inversion --- basis/tools/deploy/macosx/macosx.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/tools/deploy/macosx/macosx.factor b/basis/tools/deploy/macosx/macosx.factor index 691f9e83e2..220bd86d1e 100644 --- a/basis/tools/deploy/macosx/macosx.factor +++ b/basis/tools/deploy/macosx/macosx.factor @@ -84,11 +84,11 @@ IN: tools.deploy.macosx ] bind ] with-directory ; -: deploy-app-bundle? ( -- ? ) - deploy-console? get not deploy-ui? get or ; +: deploy-app-bundle? ( vocab -- ? ) + deploy-config [ deploy-console? get not deploy-ui? get or ] bind ; M: macosx deploy* ( vocab -- ) ! pass off to M: unix deploy* if we're building a console app - deploy-app-bundle? - [ call-next-method ] - [ deploy-app-bundle ] if ; + dup deploy-app-bundle? + [ deploy-app-bundle ] + [ call-next-method ] if ;