rewrite-closures* ( obj -- )

Vocabulary

locals.rewrite

Inputs

obj

an object

Outputs

None

Definition

IN: locals.rewrite

GENERIC: rewrite-closures* ( obj -- )

Methods

USING: kernel locals.rewrite locals.types make quotations
sequences ;

M: callable rewrite-closures*
    dup free-vars [ <quote> ] map
    [ % ] [ var-defs prepend (rewrite-closures) point-free , ]
    [ length \ curry <repetition> % ] tri ;


USING: kernel locals.rewrite make ;

M: object rewrite-closures* , ;