if-literals-match ( quots -- quot )

Vocabulary

compiler.cfg.intrinsics.simd.backend

Inputs

quots

an object

Outputs

quot

an object

Definition

USING: accessors compiler.tree.propagation.info kernel sequences
sequences.generalizations ;

IN: compiler.cfg.intrinsics.simd.backend

MACRO: if-literals-match ( quots -- quot )
    [ length ] [ ] [ length ] tri [
        [
            [ [ dup node-input-infos ] ] dip
            [ tail-slice* [ literal>> ] map dup ] curry compose
        ] dip [ check-elements ] curry compose
    ] dip [ firstn ] curry [ dip call drop ] curry
    [ [ dip swap ] curry ] dip
    [ [ 2drop bad-simd-intrinsic ] if ] curry compose ;