Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: sjack@dontemail.me (sjack)
Newsgroups: comp.lang.forth
Subject: Re: "Back & Forth" - Local variables
Date: Fri, 14 Mar 2025 19:36:42 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 28
Message-ID: <vr20g9$1up6b$1@dont-email.me>
References: <nnd$75b7a2a4$616fdd6b@4f60b314ce95c9b9> <ebcf3e5fcce3711335c869759599da585006e440@i2pn2.org> <vquqg7$3bmvc$1@dont-email.me> <926bcdb22f5b30036f236dc5351dcb1b124a3f6e@i2pn2.org> <nnd$2667ecd9$5346da92@588c31a6934614dc> <vr1ji2$1jtc3$1@dont-email.me>
Injection-Date: Fri, 14 Mar 2025 20:36:42 +0100 (CET)
Injection-Info: dont-email.me; posting-host="2b7e5ab5b987722acbf0f2c2f7e95f56";
	logging-data="2057419"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19nY+cQew7JPmFPi64pQ3fS"
User-Agent: tin/2.6.4-20240224 ("Banff") (Linux/6.8.0-55-generic (x86_64))
Cancel-Lock: sha1:j1E4UOYGzQf3/WA2gpw3fju06EQ=
Bytes: 1741

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