unbox-parameters-quot ( values -- quot )

Vocabulary

compiler.tree.tuple-unboxing

Inputs

values

an object

Outputs

quot

an object

Definition

USING: combinators kernel sequences ;

IN: compiler.tree.tuple-unboxing

: unbox-parameters-quot ( values -- quot )
    [ unbox-parameter-quot ] map dup [ [ ] = ] all?
    [ drop [ ] ] [ [ spread ] curry ] if ;