Handbook
Glossary
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
;