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