Re: "Back & Forth" - Local variables

sjack <sjack@dontemail.me> wrote:

More role play:
--
-- 'CO' is a co-processor
--
: foo ." 1FOO " co ." 5BAR " ;
: bat ." 2BAT " co ." 4CAT " ;
cr i. foo bat .( 3boo )
 --> 1FOO 2BAT 3boo 4CAT 5BAR
--
-- ')' is also a co-processor
--
: goo( ." GOO " ) ." GU " ;
cr i. goo( foo bat .( 3boo ) )
 --> GOO 1FOO 2BAT 3boo 4CAT 5BAR GU

: rev. begin dup while . repeat drop ;
: rev( 0 ) rev. ;
i. rev( 1 2 3 4 ) --> 4 3 2 1

In FigForth SP! resets data stack. Toad extension XX ,a two tap,
does the same for ease and speed. Recall in old days it was
common to type .. to quickly clear the stack by entering an
invalid word.
--
me