rewrite-element ( obj -- )

Vocabulary

locals.rewrite

Inputs

obj

an object

Outputs

None

Definition

IN: locals.rewrite

GENERIC: rewrite-element ( obj -- )

Methods

USING: assocs hashtables kernel locals.rewrite make ;

M: hashtable rewrite-element
    dup rewrite-literal?
    [ >alist rewrite-sequence \ >hashtable , ] [ , ] if ;


USING: locals.rewrite locals.types ;

M: lambda rewrite-element rewrite-sugar* ;


USING: locals.errors locals.rewrite locals.types ;

M: let rewrite-element let-form-in-literal-error ;


USING: locals.rewrite locals.types make ;

M: local-reader rewrite-element , ;


USING: locals.errors locals.rewrite locals.types ;

M: local-writer rewrite-element local-writer-in-literal-error ;


USING: locals.rewrite locals.types make ;

M: local rewrite-element , ;


USING: kernel locals.rewrite make ;

M: object rewrite-element , ;


USING: locals.rewrite quotations ;

M: quotation rewrite-element rewrite-sugar* ;


USING: kernel locals.rewrite make sequences ;

M: sequence rewrite-element
    dup rewrite-literal? [ rewrite-sequence ] [ , ] if ;


USING: classes classes.tuple kernel locals.rewrite make ;

M: tuple rewrite-element
    dup rewrite-literal? [
        [ tuple-slots rewrite-elements ] [ class-of ] bi
        [ boa ] curry %
    ] [ , ] if ;


USING: kernel locals.rewrite make words ;

M: word rewrite-element <wrapper> , ;


USING: kernel locals.rewrite make ;

M: wrapper rewrite-element rewrite-wrapper \ <wrapper> , ;