Fix and clean up stage1 bootstrap

basis/bootstrap/image/image.factor

@@ -554,12 +554,19 @@ M: quotation '
 : fixup-header ( -- )
     heap-size data-heap-size-offset fixup ;
 
+: build-generics ( -- )
+    [
+        all-words
+        [ generic? ] filter
+        [ make-generic ] each
+    ] with-compilation-unit ;
+
 : build-image ( -- image )
     800000 <vector> image set
     20000 <hashtable> objects set
     emit-image-header t, 0, 1, -1,
     "Building generic words..." print flush
-    remake-generics
+    build-generics
     "Serializing words..." print flush
     emit-words
     "Serializing JIT data..." print flush

core/bootstrap/primitives.factor

@@ -31,30 +31,31 @@ architecture get {
 ! Now we have ( syntax-quot arch-quot layouts-quot ) on the stack
 
 ! Bring up a bare cross-compiling vocabulary.
-"syntax" vocab vocab-words bootstrap-syntax set {
+"syntax" vocab vocab-words bootstrap-syntax set
-    dictionary
+
-    new-classes
+H{ } clone dictionary set
-    changed-definitions changed-generics changed-effects
+H{ } clone root-cache set
-    outdated-generics forgotten-definitions
+H{ } clone source-files set
-    root-cache source-files update-map implementors-map
+H{ } clone update-map set
-} [ H{ } clone swap set ] each
+H{ } clone implementors-map set
 
 init-caches
 
-! Vocabulary for slot accessors
-"accessors" create-vocab drop
-
 bootstrapping? on
 
 call( -- )
 call( -- )
-call( -- )
+
+! Vocabulary for slot accessors
+"accessors" create-vocab drop
 
 ! After we execute bootstrap/layouts
 num-types get f <array> builtins set
 
 [
 
+call( -- )
+
 ! Create some empty vocabs where the below primitives and
 ! classes will go
 {