convert-curries ( seq -- tail seq' )

Vocabulary

fry.private

Inputs

seq

an object

Outputs

tail	an object
seq'	an object

Definition

USING: kernel quotations sequences ;

IN: fry.private

: convert-curries ( seq -- tail seq' )
    unclip-slice [ 0 swap [ convert-curry ] map ] dip
    [ prune-curries ] [ >quotation 1quotation prefix ] if-empty
    ;