fry-form

Vocabulary

locals.types

Definition

IN: locals.types

TUPLE: fry-form source body ;

Methods

USING: accessors functors.private kernel locals.types ;

M: fry-form >fake-quotations
    [ source>> >fake-quotations ] [ body>> >fake-quotations ] bi
    fake-fry boa ;


USING: accessors locals.rewrite locals.types ;

M: fry-form defs-vars* body>> defs-vars* ;


USING: accessors kernel locals.types macros.expander make ;

M: fry-form expand-macros*
    end clone [ expand-macros ] change-body , ;


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

M: fry-form localize
    [ source>> ] [ body>> ] bi swapd
    [ [ localize % ] each ] [ ] make swapd <fry-word> 1quotation
    ;


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

M: fry-form pprint* source>> pprint-fry ;


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

M: fry-form rewrite-closures*
    clone [ (rewrite-closures) ] change-body , ;


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

M: fry-form rewrite-sugar*
    clone [ quotation-rewrite ] change-body , ;


USING: accessors locals.rewrite locals.types ;

M: fry-form uses-vars* body>> uses-vars* ;