steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Pass vocab roots onto deployed app. Fixes deployment of apps outside the built-in roots. Reported by Alec Berryman

db4
Slava Pestov 2009-04-07 21:47:57 -05:00
parent 87e4598581
commit ba61b82152
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/command-line/command-line.factor
View File

@ -60,7 +60,6 @@ SYMBOL: main-vocab-hook
: default-cli-args ( -- ) : default-cli-args ( -- )
global [ global [
"quiet" off "quiet" off
"script" off
"e" off "e" off
"user-init" on "user-init" on
embedded? "quiet" set embedded? "quiet" set

4
basis/tools/deploy/backend/backend.factor
View File

@ -8,7 +8,7 @@ debugger io.streams.c io.files io.files.temp io.pathnames
io.directories io.directories.hierarchy io.backend quotations io.directories io.directories.hierarchy io.backend quotations
io.launcher words.private tools.deploy.config io.launcher words.private tools.deploy.config
tools.deploy.config.editor bootstrap.image io.encodings.utf8 tools.deploy.config.editor bootstrap.image io.encodings.utf8
destructors accessors ; destructors accessors hashtables ;
IN: tools.deploy.backend IN: tools.deploy.backend
: copy-vm ( executable bundle-name -- vm ) : copy-vm ( executable bundle-name -- vm )
@ -88,7 +88,7 @@ DEFER: ?make-staging-image
[ drop ] [ make-staging-image ] if ; [ drop ] [ make-staging-image ] if ;
: make-deploy-config ( vocab -- file ) : make-deploy-config ( vocab -- file )
[ deploy-config unparse-use ] [ deploy-config vocab-roots get vocab-roots associate assoc-union unparse-use ]
[ "deploy-config-" prepend temp-file ] bi [ "deploy-config-" prepend temp-file ] bi
[ utf8 set-file-contents ] keep ; [ utf8 set-file-contents ] keep ;