deploy-threads? get [ "threads" , ] when
"compiler" ,
deploy-help? get [ "help" , ] when
+ native-io? [ "io" , ] when
deploy-ui? get [ "ui" , ] when
deploy-unicode? get [ "unicode" , ] when
- native-io? [ "io" , ] when
+
] { } make ;
: staging-image-name ( profile -- name )
: deploy-command-line ( image vocab manifest-file config -- flags )
[
bootstrap-profile ?make-staging-image
-
[
"-i=" bootstrap-profile staging-image-name append ,
"-resource-path=" "" resource-path append ,
[ ] [ "hello-ui" shake-and-bake 1400000 small-enough? ] unit-test
-[ "math-threads-compiler-ui" ] [
+[ "math-threads-compiler-io-ui" ] [
"hello-ui" deploy-config [
bootstrap-profile staging-image-name file-name
"." split second