uncompose ( compose -- quot quot2 )


Vocabulary
quotations.private

Inputs
composean object


Outputs
quotan object
quot2an object


Definition
USING: kernel kernel.private slots.private ;

IN: quotations.private

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