tools.deploy.macosx: oops, logic inversion
parent
f5d7ec72c7
commit
932315a852
|
@ -84,11 +84,11 @@ IN: tools.deploy.macosx
|
||||||
] bind
|
] bind
|
||||||
] with-directory ;
|
] with-directory ;
|
||||||
|
|
||||||
: deploy-app-bundle? ( -- ? )
|
: deploy-app-bundle? ( vocab -- ? )
|
||||||
deploy-console? get not deploy-ui? get or ;
|
deploy-config [ deploy-console? get not deploy-ui? get or ] bind ;
|
||||||
|
|
||||||
M: macosx deploy* ( vocab -- )
|
M: macosx deploy* ( vocab -- )
|
||||||
! pass off to M: unix deploy* if we're building a console app
|
! pass off to M: unix deploy* if we're building a console app
|
||||||
deploy-app-bundle?
|
dup deploy-app-bundle?
|
||||||
[ call-next-method ]
|
[ deploy-app-bundle ]
|
||||||
[ deploy-app-bundle ] if ;
|
[ call-next-method ] if ;
|
||||||
|
|
Loading…
Reference in New Issue