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

Fix bootstrap errors

db4
Slava Pestov 2009-04-06 01:10:34 -05:00
parent cb6030778f
commit 42f3b0e16e
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/bootstrap/stage2.factor
View File

@ -45,11 +45,18 @@ SYMBOL: bootstrap-time
[ optimized>> ] count-words " compiled words" print [ optimized>> ] count-words " compiled words" print
[ symbol? ] count-words " symbol words" print [ symbol? ] count-words " symbol words" print
[ ] count-words " words total" print [ ] count-words " words total" print
"Bootstrapping is complete." print "Bootstrapping is complete." print
"Now, you can run Factor:" print "Now, you can run Factor:" print
vm write " -i=" write "output-image" get print flush ; vm write " -i=" write "output-image" get print flush ;
: save/restore-error ( quot -- )
error get-global
error-continuation get-global
[ call ] 2dip
error-continuation set-global
error set-global ; inline
[ [
! We time bootstrap ! We time bootstrap
millis millis
@ -104,6 +111,7 @@ SYMBOL: bootstrap-time
drop drop
[ [
load-help? off load-help? off
"vocab:bootstrap/bootstrap-error.factor" run-file [ "vocab:bootstrap/bootstrap-error.factor" parse-file ] save/restore-error
call
] with-scope ] with-scope
] recover ] recover