uncompose ( compose -- quot quot2 )

Vocabulary
quotations.private

Definition

USING: kernel kernel.private slots.private ;

IN: quotations.private

: uncompose ( compose -- quot quot2 )
    { compose } declare dup 2 slot swap 3 slot ; inline