make-curry ( 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-curry ( consecutive quot -- consecutive' quot' )
    [ 1 + ] dip [ [ ] ] [ (make-curry) 0 swap ] if-empty ;