multi-def

Vocabulary

locals.types

Definition

IN: locals.types
TUPLE: multi-def locals ;

Methods

USING: accessors locals.rewrite locals.types sequences ;
M: multi-def defs-vars* locals>> [ unquote suffix ] each ;

USING: accessors arrays combinators fry.private kernel
locals.backend locals.rewrite locals.types math sequences ;
M: multi-def localize
locals>> <reversed>
[ prepend ] [
[
[ local-reader? ] dip [ [ [ 1array ] ] ] dip
[ [ndip] ] curry compose [ [ ] ] if
] map-index concat
] [
length {
{ [ dup 1 > ] [ [ load-locals ] curry ] }
{ [ dup 1 = ] [ drop [ load-local ] ] }
[ drop [ ] ]
} cond
] tri append ;

USING: accessors combinators kernel locals.prettyprint
locals.types math prettyprint.backend prettyprint.custom
prettyprint.sections sequences words ;
M: multi-def pprint*
dup locals>> [ word? ] all? [
<block \ :> pprint-word locals>> {
[ length 1 > [ "(" text ] when ]
[ [ pprint-var ] each ]
[ length 1 > [ ")" text ] when ]
} cleave block>
] [ pprint-tuple ] if ;

USING: locals.rewrite locals.types make ;
M: multi-def rewrite-sugar* , ;