lambda

Vocabulary

locals.types

Definition

IN: locals.types

TUPLE: lambda vars body ;

Methods

USING: kernel locals.types macros.expander ;

M: lambda condomize [ call ] curry ;


USING: kernel locals.types macros.expander ;

M: lambda condomize? drop t ;


USING: accessors fry.private locals.types ;

M: lambda count-inputs body>> count-inputs ;


USING: accessors kernel locals.types macros.expander ;

M: lambda expand-macros clone [ expand-macros ] change-body ;


USING: locals.types macros.expander ;

M: lambda expand-macros* expand-macros literal ;


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 locals.types reports.noise ;

M: lambda noise body>> noise ;


USING: accessors kernel locals.prettyprint locals.types
prettyprint.backend prettyprint.custom prettyprint.sections ;

M: lambda pprint*
    <flow \ [| pprint-word dup vars>> pprint-vars "|" text
    f <inset body>> pprint-elements block> \ ] pprint-word
    block> ;


USING: accessors kernel locals.rewrite locals.types sequences ;

M: lambda quotation-rewrite
    [ body>> ] [ vars>> var-defs ] bi prepend quotation-rewrite
    ;


USING: locals.rewrite locals.types ;

M: lambda rewrite-element rewrite-sugar* ;


USING: locals.rewrite locals.types make ;

M: lambda rewrite-sugar* quotation-rewrite , ;