Vocabulary
compiler.cfg.intrinsics.simd.backend

Inputs
trialsan object
params-quotan object
op-quotan object
literal-predsan object


Outputs
quotan object


Definition


:: emit-vector-op
( trials params-quot op-quot literal-preds -- quot )
params-quot trials op-quot literal-preds [
[ [ [ dip ] curry ] dip ] dip curry [ ds-push ] compose
compose
] dip [ if-literals-match ] 2curry ;