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

compiler: Rename start -> start-compilation, finish -> finish-compilation. 

These start/finish are cute names, but ``finish`` is pretty vague even in the same file in the ``deoptimize-with`` word.
char-rename
Doug Coleman 2017-06-01 14:51:18 -05:00
parent c5b563ed09
commit 42a7a8e572
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/compiler.factor
View File

@ -23,7 +23,7 @@ SYMBOL: compiled
: compiler-message ( string -- ) : compiler-message ( string -- )
"trace-compilation" get [ [ print flush ] with-global ] [ drop ] if ; "trace-compilation" get [ [ print flush ] with-global ] [ drop ] if ;
: start ( word -- ) : start-compilation ( word -- )
dup name>> compiler-message dup name>> compiler-message
H{ } clone dependencies namespaces:set H{ } clone dependencies namespaces:set
H{ } clone generic-dependencies namespaces:set H{ } clone generic-dependencies namespaces:set
@ -55,7 +55,7 @@ M: word combinator? inline? ;
[ [ combinator? ] [ unknown-macro-input? ] bi* and ] [ [ combinator? ] [ unknown-macro-input? ] bi* and ]
} 2|| ; } 2|| ;
: finish ( word -- ) : finish-compilation ( word -- )
! Recompile callers if the word's stack effect changed, then ! Recompile callers if the word's stack effect changed, then
! save the word's dependencies so that if they change, the ! save the word's dependencies so that if they change, the
! word can get recompiled too. ! word can get recompiled too.
@ -71,7 +71,7 @@ M: word combinator? inline? ;
: deoptimize-with ( word def -- * ) : deoptimize-with ( word def -- * )
! If the word failed to infer, compile it with the ! If the word failed to infer, compile it with the
! non-optimizing compiler. ! non-optimizing compiler.
swap [ finish ] [ compiled get set-at ] bi return ; swap [ finish-compilation ] [ compiled get set-at ] bi return ;
: not-compiled-def ( word error -- def ) : not-compiled-def ( word error -- def )
'[ _ _ not-compiled ] [ ] like ; '[ _ _ not-compiled ] [ ] like ;
@ -130,10 +130,10 @@ M: word combinator? inline? ;
! failed to infer. ! failed to infer.
'[ '[
_ { _ {
[ start ] [ start-compilation ]
[ frontend ] [ frontend ]
[ backend ] [ backend ]
[ finish ] [ finish-compilation ]
} cleave } cleave
] with-return ; ] with-return ;