Re: "Back & Forth" - Local variables

In article <nnd$0a3352ed$2c40f494@296559c013ec38eb>,
 <albert@spenarnc.xs4all.nl> wrote:

In article <nnd$75b7a2a4$616fdd6b@4f60b314ce95c9b9>,
Hans Bezemer  <the.beez.speaks@gmail.com> wrote:

<SNIP>

https://www.youtube.com/watch?v=Y7cax2fDS84

>
I was impressed with the Behringer solution.
(I didn't care about the politically correct solution.)
>
====================================
: local{ R> SWAP DUP >R @ >R >R ;
: }global R> R> R> ! >R ;
=================
>
But I can do you one better.
Remember the word ;: from colorforth. That is actually a coroutine call.
I call it CO. (Present in ciforth since the year 00)
>
An example of its use is the following:
:NONAME .S ;  ' LIST decorated
decorated is not the point. The noname decorates LIST with
the anonymous function, so that the stack is printed, before LIST.
Now we go one step further:
:NONAME .S CO ." AFTER " .S ;  ' LIST decorated

Or
    :NONAME .S ;: ." AFTER " .S ;  ' LIST decorated

The noname decorates LIST with the anonymous function, so that the
stack is printed, before, but now noname is suspended, LIST is
executed as a coroutine, and afterword the stack is printed once more.
>
With CO the example become
---------------------------------------
: LOCAL   R> SWAP DUP >R @ >R >R   CO   R> R> ! ;
>
VARIABLE A
VARIABLE B
>
: divide
  A LOCAL
  B LOCAL
  B ! A !  A @ B @ /
  . CR
;
>
15 3 divide
---------------------------------------

Suppose we adopt Chuck Moore's name

: LOCAL   R> SWAP DUP >R @ >R >R   ;:   R> R> ! ;

This looks even better.

Groetjes Albert

--
Temu exploits Christians: (Disclaimer, only 10 apostles)
Last Supper Acrylic Suncatcher - 15Cm Round Stained Glass- Style Wall
Art For Home, Office And Garden Decor - Perfect For Windows, Bars,
And Gifts For Friends Family And Colleagues.