rewrite-sugar* ( obj -- )

Vocabulary

locals.rewrite

Inputs

obj

an object

Outputs

None

Definition

IN: locals.rewrite

GENERIC: rewrite-sugar* ( obj -- )

Methods

USING: locals.rewrite make quotations ;

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


USING: hashtables locals.rewrite ;

M: hashtable rewrite-sugar* rewrite-element ;


USING: locals.rewrite locals.types make ;

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


USING: accessors locals.rewrite locals.types make ;

M: let rewrite-sugar* body>> quotation-rewrite % ;


USING: locals.rewrite locals.types make ;

M: multi-def rewrite-sugar* , ;


USING: kernel locals.rewrite make ;

M: object rewrite-sugar* , ;


USING: locals.rewrite sequences ;

M: sequence rewrite-sugar* rewrite-element ;


USING: kernel locals.rewrite ;

M: tuple rewrite-sugar* rewrite-element ;


USING: generic kernel locals.backend locals.errors
locals.rewrite sequences words ;

M: word rewrite-sugar*
    dup { load-locals get-local drop-locals } member-eq?
    [ >r/r>-in-lambda-error ]
    [ M\ word rewrite-sugar* (call-next-method) ] if ;


USING: kernel locals.rewrite ;

M: wrapper rewrite-sugar* rewrite-wrapper ;