fry ( object -- quot )
Factor handbook » The language » Fried quotations

Prev:

Fried quotation philosophy

Vocabulary
fry

Inputs

object

an object

Outputs

quot	a quotation

Word description
Outputs a quotation that when called, fries object by taking values from the stack and substituting them in.

Notes
This word is used to implement '[; the following two lines are equivalent:

[ X ] fry call '[ X ]

Examples
See Examples of fried quotations.

Definition

IN: fry

GENERIC: fry ( object -- quot )

Methods

USING: fry fry.private quotations sequences ;

M: callable fry [ [ [ ] ] ] [ (fry) ] if-empty ;


USING: accessors fry fry.private generalizations kernel
locals.types sequences ;

M: lambda fry
    clone [ [ count-inputs ] [ fry ] bi ] change-body [
        [ vars>> length ] keep [ [ mnswap ] 2curry ] dip
        [ call ] curry compose
    ] [ drop [ncurry] curry [ call ] compose ] 2bi ;


USING: accessors fry kernel locals.types ;

M: let fry clone [ fry ] change-body ;


USING: fry fry.private kernel quotations sequences ;

M: sequence fry
    [ 0 swap new-sequence ] keep
    [ 1quotation ] [ (fry) swap [ like ] curry append ] if-empty
    ;