Re: Back & Forth - Co-routines

Here's the simple locals paradigm using VALUEs.  OTOH it's likely
to be less portable than the VARIABLE-based one.

: ;: >r ;

: (local) ( x xt -- )  \ assume CREATE-based VALUEs
  r> -rot dup execute over 2>r  >body ! ;: 2r> >body ! ;

: LOCAL ( x "name" -- )
  '  postpone literal  postpone (local) ; immediate

\ behead (local) (local)

\ Example
8 value A  7 value B

: divide ( a b -- )  local b  local a
  a b /  . cr  ;

15 3 divide  a . b .