convert-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 quotations sequences ;

IN: fry.private

: convert-curry ( consecutive quot -- consecutive' quot' )
    [ [ ] make-curry ] [
        dup first \ @ =
        [ rest >quotation make-compose ]
        [ >quotation make-curry ] if
    ] if-empty ;