diff --git a/basis/bootstrap/finish-bootstrap.factor b/basis/bootstrap/finish-bootstrap.factor index 133b64acaa..36f6291bc6 100644 --- a/basis/bootstrap/finish-bootstrap.factor +++ b/basis/bootstrap/finish-bootstrap.factor @@ -12,5 +12,6 @@ namespaces eval kernel vocabs.loader io ; ignore-cli-args? not script get and [ run-script ] [ "run" get run ] if* output-stream get [ stream-flush ] when* + 0 exit ] [ print-error 1 exit ] recover ] set-boot-quot diff --git a/basis/bootstrap/finish-staging.factor b/basis/bootstrap/finish-staging.factor index a60ce04e15..49f504fd41 100644 --- a/basis/bootstrap/finish-staging.factor +++ b/basis/bootstrap/finish-staging.factor @@ -7,4 +7,5 @@ io ; (command-line) parse-command-line "run" get run output-stream get [ stream-flush ] when* + 0 exit ] set-boot-quot diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor index 3d4944841d..135679444b 100755 --- a/basis/tools/deploy/shaker/shaker.factor +++ b/basis/tools/deploy/shaker/shaker.factor @@ -365,6 +365,7 @@ SYMBOL: deploy-vocab init-hooks get values concat % , strip-io? [ \ flush , ] unless + [ 0 exit ] % ] [ ] make set-boot-quot ;