| Author: | slava |
|---|---|
| Mode: | factor |
| Date: | Sat, 3 Apr 2010 20:19:10 |
: 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 ;