factor/core/bootstrap/compiler/compiler.factor

USING: compiler cpu.architecture vocabs.loader system sequences
namespaces parser kernel kernel.private classes classes.private
arrays hashtables vectors tuples sbufs inference.dataflow
hashtables.private sequences.private math tuples.private
growable namespaces.private alien.remote-control assocs words
generator command-line vocabs io prettyprint libc ;

"cpu." cpu append require

global [ { "compiler" } add-use ] bind

"-no-stack-traces" cli-args member? [
    f compiled-stack-traces? set-global
    0 set-profiler-prologues
] when

! Compile a set of words ahead of our general
! compile-all. This set of words was determined
! semi-empirically using the profiler. It improves
! bootstrap time significantly, because frequenly
! called words which are also quick to compile
! are replaced by compiled definitions as soon as
! possible.
{
    roll -roll declare not

    tuple-class-eq? array? hashtable? vector?
    tuple? sbuf? node? tombstone?

    array-capacity array-nth set-array-nth

    wrap probe

    delegate

    underlying

    find-pair-next namestack*

    bitand bitor bitxor bitnot

    + 1+ 1- 2/ < <= > >= shift min

    new nth push pop peek hashcode* = get set

    . lines

    malloc free memcpy
} [ compile ] each

[ recompile ] parse-hook set-global