rethrower ( word inputs -- quot )

Vocabulary

descriptive.private

Inputs

word	an object
inputs	an object

Outputs

quot

an object

Definition

USING: arrays descriptive generalizations kernel sequences
sequences.generalizations ;

IN: descriptive.private

: rethrower ( word inputs -- quot )
    [ length ] keep [ [ narray ] dip swap 2array flip ] 2curry
    [ 2 ndip descriptive-error ] 2curry ;