make-compose ( consecutive quot -- consecutive' quot' )

Vocabulary

fry.private

Inputs

consecutive	an object
quot	an object

Outputs

consecutive'	an object
quot'	an object

Definition

USING: kernel math sequences ;

IN: fry.private

: make-compose ( consecutive quot -- consecutive' quot' )
    [ [ [ ] ] [ [ncurry] ] if-zero ]
    [ [ [ compose ] ] [ [ compose compose ] curry ] if-empty ]
    bi* compose 0 swap ;