uncompose ( compose -- quot quot2 ) (original) (raw)
uncompose ( compose -- quot quot2 )
Vocabulary
quotations.private
Inputs
| compose | an object |
|---|
Outputs
| quot | an object |
|---|---|
| quot2 | an object |
Definition
USING: kernel kernel.private slots.private ;
: uncompose ( compose -- quot quot2 )
{ composed } declare dup 2 slot swap 3 slot ; inline