inline-unless-intrinsic ( word -- )

Vocabulary

compiler.tree.propagation.simd

Inputs

word

an object

Outputs

None

Definition

USING: accessors kernel namespaces words ;

IN: compiler.tree.propagation.simd

: inline-unless-intrinsic ( word -- )
    dup [
        tuck "intrinsic" word-prop
        "always-inline-simd-intrinsics" get not swap and
        [ try-intrinsic [ drop f ] [ def>> ] if ] [ drop def>> ]
        if*
    ] curry "custom-inlining" set-word-prop ;