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

Fix problem with words becoming uncompiled

db4
Slava Pestov 2008-04-19 20:56:36 -05:00
parent 711d101154
commit f4fdbd6a6c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/generator/generator.factor
View File

@ -40,16 +40,16 @@ SYMBOL: current-label-start
compiled-stack-traces? compiled-stack-traces?
compiling-word get f ? compiling-word get f ?
1vector literal-table set 1vector literal-table set
f compiling-word get compiled get set-at ; f compiling-label get compiled get set-at ;
: finish-compiling ( literals relocation labels code -- ) : save-machine-code ( literals relocation labels code -- )
4array compiling-label get compiled get set-at ; 4array compiling-label get compiled get set-at ;
: with-generator ( node word label quot -- ) : with-generator ( node word label quot -- )
[ [
>r begin-compiling r> >r begin-compiling r>
{ } make fixup { } make fixup
finish-compiling save-machine-code
] with-scope ; inline ] with-scope ; inline
GENERIC: generate-node ( node -- next ) GENERIC: generate-node ( node -- next )