steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix load errors from bootstrapping

db4
Joe Groff 2009-10-28 12:51:03 -05:00
parent 22afae8734
commit 2ecf3fb568
4 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/intrinsics/alien/alien.factor
View File

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

4
basis/peg/ebnf/ebnf.factor
View File

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

22
basis/peg/peg.factor
View File

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

2
basis/stack-checker/known-words/known-words.factor
View File

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