diff --git a/basis/bootstrap/compiler/compiler.factor b/basis/bootstrap/compiler/compiler.factor index 6c80931c43..310c46632e 100644 --- a/basis/bootstrap/compiler/compiler.factor +++ b/basis/bootstrap/compiler/compiler.factor @@ -11,7 +11,7 @@ IN: bootstrap.compiler ! Don't bring this in when deploying, since it will store a ! reference to 'eval' in a global variable -"deploy-vocab" get "staging" get or [ +"staging" get [ "alien.remote-control" require ] unless diff --git a/basis/bootstrap/stage2.factor b/basis/bootstrap/stage2.factor index 320d853f1b..d6749fdf7d 100644 --- a/basis/bootstrap/stage2.factor +++ b/basis/bootstrap/stage2.factor @@ -78,7 +78,7 @@ CONSTANT: default-components ! Set dll paths os windows? [ "windows" require ] when - "staging" get "deploy-vocab" get or [ + "staging" get [ "stage2: deployment mode" print ] [ "debugger" require @@ -95,20 +95,16 @@ CONSTANT: default-components nano-count swap - bootstrap-time set-global print-report - "deploy-vocab" get [ - "tools.deploy.shaker" run + "staging" get [ + "vocab:bootstrap/finish-staging.factor" run-file ] [ - "staging" get [ - "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 + "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 ] [ drop [