rewrite-element ( obj -- ) - Factor Documentation

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> , ;