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

More robust bootstrap, fix X11 typo

slava 2006-05-29 04:19:31 +00:00
parent fa48c9f1f5
commit 9ca8b2a448
2 changed files with 73 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
library/bootstrap/boot-stage2.factor
View File

@ -1,9 +1,12 @@
! Copyright (C) 2004, 2006 Slava Pestov. ! Copyright (C) 2004, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: compiler generic help io io-internals kernel USING: compiler errors generic help io io-internals kernel
kernel-internals math memory namespaces optimizer parser kernel-internals listener math memory namespaces optimizer
sequences sequences-internals words ; parser sequences sequences-internals words ;
! Wrap everything in a catch which starts a listener so you can
! see what went wrong, instead of dealing with a fep
[
"Cross-referencing..." print flush "Cross-referencing..." print flush
H{ } clone crossref set-global xref-words H{ } clone crossref set-global xref-words
H{ } clone help-graph set-global xref-articles H{ } clone help-graph set-global xref-articles
@ -78,4 +81,6 @@ number>string write " ms" print
"Now, you can run ./f factor.image" print flush "Now, you can run ./f factor.image" print flush
"factor.image" resource-path save-image "factor.image" resource-path save-image
] catch [ print-error listener ] when*
0 exit 0 exit

2
library/ui/x11/utilities.factor
View File

@ -26,7 +26,7 @@ SYMBOL: root
: with-x ( display-string quot -- ) : with-x ( display-string quot -- )
[ [
reset-views reset-windows
swap initialize-x swap initialize-x
[ close-x ] cleanup [ close-x ] cleanup
] with-scope ; ] with-scope ;