emit-vector-op ( trials params-quot op-quot literal-preds -- quot )


Vocabulary
compiler.cfg.intrinsics.simd.backend

Inputs and outputs
trialsan object
params-quotan object
op-quotan object
literal-predsan object
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 ;