Fixing bootstrap

db4
Slava Pestov 2008-01-09 05:00:02 -05:00
parent 3b311d3cb7
commit 3629ba7dcd
4 changed files with 7 additions and 6 deletions

View File

@ -5,7 +5,7 @@ USING: alien arrays byte-arrays generic hashtables
hashtables.private io kernel math namespaces parser sequences hashtables.private io kernel math namespaces parser sequences
strings vectors words quotations assocs layouts classes tuples strings vectors words quotations assocs layouts classes tuples
kernel.private vocabs vocabs.loader source-files definitions kernel.private vocabs vocabs.loader source-files definitions
slots classes.union words.private ; slots classes.union compiler.units ;
! Some very tricky code creating a bootstrap embryo in the ! Some very tricky code creating a bootstrap embryo in the
! host image. ! host image.

View File

@ -10,7 +10,8 @@ SYMBOL: with-compiler-errors?
: compiler-error ( error word -- ) : compiler-error ( error word -- )
with-compiler-errors? get [ with-compiler-errors? get [
compiler-errors get set-at compiler-errors get pick
[ set-at ] [ delete-at drop ] if
] [ 2drop ] if ; ] [ 2drop ] if ;
: compiler-error. ( error word -- ) : compiler-error. ( error word -- )

View File

@ -1,8 +1,8 @@
! Copyright (C) 2007, 2008 Slava Pestov. ! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image.private kernel namespaces system USING: bootstrap.image.private kernel namespaces system
cpu.ppc.assembler generator.fixup compiler.constants math cpu.ppc.assembler generator.fixup compiler.units
layouts words vocabs ; compiler.constants math layouts words vocabs ;
IN: bootstrap.ppc IN: bootstrap.ppc
4 \ cell set 4 \ cell set

View File

@ -1,8 +1,8 @@
! Copyright (C) 2007 Slava Pestov. ! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image.private kernel namespaces system USING: bootstrap.image.private kernel namespaces system
cpu.x86.assembler layouts compiler.units math generator.fixup cpu.x86.assembler layouts compiler.units math generator.fixup
compiler.constants ; compiler.constants vocabs ;
IN: bootstrap.x86 IN: bootstrap.x86
big-endian off big-endian off