stage 2 boot fix

cvs
Slava Pestov 2005-12-08 05:55:51 +00:00
parent 86a463b458
commit 7262e6832a
2 changed files with 13 additions and 9 deletions

View File

@ -37,13 +37,15 @@ cpu "amd64" = [
! Handle -libraries:... overrides
parse-command-line
"compile" get "native-io" get and supported-cpu? and [
unix? [
"/library/unix/load.factor" run-resource
] when
os "win32" = [
"/library/win32/load.factor" run-resource
"compile" get supported-cpu? and [
"native-io" get [
unix? [
"/library/unix/load.factor" run-resource
] when
os "win32" = [
"/library/win32/load.factor" run-resource
] when
] when
"Compiling base..." print
@ -64,7 +66,7 @@ parse-command-line
terpri
"Initializing native I/O..." print
init-io
"native-io" get [ init-io ] when
] when
[

View File

@ -28,7 +28,9 @@ words ;
: try-compile ( word -- )
[ compile ] [ error. drop ] recover ;
: compile-all ( -- ) [ try-compile ] each-word ;
: compile-all ( -- )
[ f "no-effect" set-word-prop ] each-word
[ try-compile ] each-word ;
: recompile ( word -- ) dup update-xt compile ;