(value>quot) ( value-info -- quot )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

value-info

an object

Outputs

quot

an object

Definition

USING: accessors combinators kernel sequences ;

IN: compiler.tree.propagation.call-effect

: (value>quot) ( value-info -- quot )
    dup literal?>>
    [ literal>> [ add-quot-to-history ] [ '[ drop @ ] ] bi ] [
        dup class>> {
            {
                \ curried
                [
                    slots>> third (value>quot)
                    '[ ~quotation~ ~quotation~ bi ]
                ]
            }
            {
                \ composed
                [
                    slots>> last2 [ (value>quot) ] bi@
                    '[ ~quotation~ ~quotation~ bi ]
                ]
            }
        } case
    ] if ;