fix load errors from bootstrapping

basis/compiler/cfg/intrinsics/alien/alien.factor

@@ -25,7 +25,7 @@ IN: compiler.cfg.intrinsics.alien
     node node-input-infos :> infos
     infos test call
     [ infos quot call ]
-    [ node emit-primitive ] if ;
+    [ node emit-primitive ] if ; inline
 
 : inline-alien-getter? ( infos -- ? )
     [ first class>> c-ptr class<= ]

basis/peg/ebnf/ebnf.factor

@@ -445,7 +445,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
       drop 
     ] [ 
       [
-        "FROM: locals => [let ; FROM: sequences => nth ; [let " %
+        "FROM: locals => [let :> ; FROM: sequences => nth ; [let " %
           dup length [
             over ebnf-var? [
               " " % # " over nth :> " %
@@ -463,7 +463,7 @@ M: ebnf-sequence build-locals ( code ast -- code )
 
 M: ebnf-var build-locals ( code ast -- )
   [
-    "FROM: locals => [let ; FROM: kernel => dup nip ; [let " %
+    "FROM: locals => [let :> ; FROM: kernel => dup nip ; [let " %
     " dup :> " % name>> %
     " " %
     %  

basis/peg/peg.factor

@@ -613,17 +613,19 @@ PRIVATE>
 ERROR: parse-failed input word ;
 
 SYNTAX: PEG:
-    (:) :> effect :> def :> word
-    [
-      [
-        def call compile :> compiled-def
+    [let
+        (:) :> effect :> def :> word
         [
-          dup compiled-def compiled-parse
-          [ ast>> ] [ word parse-failed ] ?if
-        ]
-        word swap effect define-declared
-      ] with-compilation-unit
-    ] over push-all ;
+          [
+            def call compile :> compiled-def
+            [
+              dup compiled-def compiled-parse
+              [ ast>> ] [ word parse-failed ] ?if
+            ]
+            word swap effect define-declared
+          ] with-compilation-unit
+        ] over push-all
+    ] ;
 
 USING: vocabs vocabs.loader ;
 

basis/stack-checker/known-words/known-words.factor

@@ -192,7 +192,7 @@ M: bad-executable summary
 
 \ load-local [ infer-load-local ] "special" set-word-prop
 
-: infer-get-local ( -- )
+:: infer-get-local ( -- )
     pop-literal nip 1 swap - :> n
     n consume-r :> in-r
     in-r first copy-value 1array :> out-d