rewrite-element ( obj -- )


Vocabulary
locals.rewrite.sugar

Definition
IN: locals.rewrite.sugar

GENERIC: rewrite-element ( obj -- )


Methods
USING: arrays kernel locals.rewrite.sugar make ;

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


USING: assocs hashtables kernel locals.rewrite.sugar make ;

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


USING: locals.rewrite.sugar locals.types ;

M: lambda rewrite-element rewrite-sugar* ;


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

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


USING: locals.rewrite.sugar locals.types make ;

M: local-reader rewrite-element , ;


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

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


USING: locals.rewrite.sugar locals.types make ;

M: local rewrite-element , ;


USING: kernel locals.rewrite.sugar make ;

M: object rewrite-element , ;


USING: locals.rewrite.sugar quotations ;

M: quotation rewrite-element rewrite-sugar* ;


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

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


USING: kernel locals.rewrite.sugar make vectors ;

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


USING: kernel locals.rewrite.sugar make words ;

M: word rewrite-element <wrapper> , ;


USING: kernel locals.rewrite.sugar make ;

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