bootstrap.stage2: deploy-vocab is never set when running the stage2 process

char-rename
Björn Lindqvist 2016-09-16 14:54:04 +02:00
parent 8368727f8a
commit 6cced7dcbf
2 changed files with 10 additions and 14 deletions

View File

@ -11,7 +11,7 @@ IN: bootstrap.compiler
! Don't bring this in when deploying, since it will store a ! Don't bring this in when deploying, since it will store a
! reference to 'eval' in a global variable ! reference to 'eval' in a global variable
"deploy-vocab" get "staging" get or [ "staging" get [
"alien.remote-control" require "alien.remote-control" require
] unless ] unless

View File

@ -78,7 +78,7 @@ CONSTANT: default-components
! Set dll paths ! Set dll paths
os windows? [ "windows" require ] when os windows? [ "windows" require ] when
"staging" get "deploy-vocab" get or [ "staging" get [
"stage2: deployment mode" print "stage2: deployment mode" print
] [ ] [
"debugger" require "debugger" require
@ -95,20 +95,16 @@ CONSTANT: default-components
nano-count swap - bootstrap-time set-global nano-count swap - bootstrap-time set-global
print-report print-report
"deploy-vocab" get [ "staging" get [
"tools.deploy.shaker" run "vocab:bootstrap/finish-staging.factor" run-file
] [ ] [
"staging" get [ "vocab:bootstrap/finish-bootstrap.factor" run-file
"vocab:bootstrap/finish-staging.factor" run-file
] [
"vocab:bootstrap/finish-bootstrap.factor" run-file
] if
f error set-global
f original-error set-global
f error-continuation set-global
"output-image" get save-image-and-exit
] if ] if
f error set-global
f original-error set-global
f error-continuation set-global
"output-image" get save-image-and-exit
] [ ] [
drop drop
[ [