Paste: new with-datastack

Author: slava
Mode: factor
Date: Sat, 3 Apr 2010 20:19:10
Plain Text |
: with-datastack ( stack quot -- new-stack )
    [
        [ [ datastack ] dip swap [ { } like set-datastack ] dip ] dip
        swap [ call datastack ] dip
        swap [ set-datastack ] dip
    ] (( stack quot -- new-stack )) call-effect-unsafe ;

New Annotation

Summary:
Author:
Mode:
Body: