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

View File

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