jit-conditional ( test-quot false-quot -- )

Vocabulary

bootstrap.image.private

Inputs

test-quot	an object
false-quot	an object

Outputs

None

Definition

USING: compiler.codegen.relocation kernel make math namespaces
sequences ;

IN: bootstrap.image.private

:: jit-conditional ( test-quot false-quot -- )
    [ 0 test-quot call ] B{ } make
    length :> len building get length extra-offset get + len +
    [ extra-offset set false-quot call ] B{ } make
    [ length test-quot call ] [ % ] bi ; inline