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

Return 1 to shell on error

db4
Doug Coleman 2007-12-18 16:59:03 -06:00
parent 54be2b85f5
commit de7531424b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/bootstrap/stage2.factor
View File

@ -67,10 +67,12 @@ IN: bootstrap.stage2
[ [
boot boot
do-init-hooks do-init-hooks
[ parse-command-line ] try [
[ run-user-init ] try parse-command-line
[ "run" get run ] try run-user-init
stdio get [ stream-flush ] when* "run" get run
stdio get [ stream-flush ] when*
] [ print-error 1 exit ] recover
] set-boot-quot ] set-boot-quot
: count-words all-words swap subset length pprint ; : count-words all-words swap subset length pprint ;