(fry) ( sequence -- quot )

Vocabulary

fry.private

Inputs

sequence

an object

Outputs

quot

an object

Definition

USING: accessors kernel quotations sequences ;

IN: fry.private

: (fry) ( sequence -- quot )
    <dredge-fry>
    [ 0 swap dredge-fry ] [ prequot>> >quotation ]
    [ quot>> >quotation shallow-fry ] tri append ;