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


Vocabulary
bootstrap.image.private

Inputs
test-quotan object
false-quotan 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