Fixing bootstrap

core/bootstrap/primitives.factor

@@ -5,7 +5,7 @@ USING: alien arrays byte-arrays generic hashtables
 hashtables.private io kernel math namespaces parser sequences
 strings vectors words quotations assocs layouts classes tuples
 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
 ! host image.

core/compiler/errors/errors.factor

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

core/cpu/ppc/bootstrap.factor

@@ -1,8 +1,8 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 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
 
 4 \ cell set

core/cpu/x86/bootstrap.factor

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