Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connectionsNewsgroups: comp.lang.forth References: From: albert@spenarnc.xs4all.nl Subject: Re: "Back & Forth" - Local variables X-Newsreader: trn 4.0-test77 (Sep 1, 2010) Originator: albert@cherry.(none) (albert) Message-ID: Organization: KPN B.V. Date: Fri, 10 Jan 2025 11:53:46 +0100 Path: ...!news.roellig-ltd.de!open-news-network.org!weretis.net!feeder8.news.weretis.net!usenet.goja.nl.eu.org!3.eu.feeder.erje.net!feeder.erje.net!feeder1.feed.ams11.usenet.farm!feed.usenet.farm!feed.abavia.com!abe005.abavia.com!abp002.abavia.com!news.kpn.nl!not-for-mail Lines: 62 Injection-Date: Fri, 10 Jan 2025 11:53:46 +0100 Injection-Info: news.kpn.nl; mail-complaints-to="abuse@kpn.com" Bytes: 2735 In article , wrote: >In article , >Hans Bezemer wrote: >>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.