unbox-parameter-quot ( allocation -- quot )

Vocabulary

compiler.tree.tuple-unboxing

Inputs

allocation

an object

Outputs

quot

an object

Definition

USING: arrays combinators
compiler.tree.escape-analysis.allocations kernel sequences ;

IN: compiler.tree.tuple-unboxing

: unbox-parameter-quot ( allocation -- quot )
    dup unboxed-allocation {
        { [ dup not ] [ 2drop [ ] ] }
        {
            [ dup array? ]
            [
                [ value-declaration ] [
                    [ ~quotation~ ~quotation~ bi* prepose ]
                    map-index
                ] bi* [ cleave ] curry compose
            ]
        }
    } cond ;