Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.mixmin.net!weretis.net!feeder4.news.weretis.net!feeder2.ecngs.de!ecngs!feeder.ecngs.de!Xl.tags.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!local2.nntp.ams.giganews.com!news.giganews.com.POSTED!not-for-mail
NNTP-Posting-Date: Thu, 08 Nov 2012 10:24:12 -0600
From: Chris Hinsley <chris.hinsley@gmail.com>
Newsgroups: comp.lang.forth
Date: Thu, 8 Nov 2012 16:24:12 +0000
Message-ID: <2012110816241243818-chrishinsley@gmailcom>
References: <2012110713421835115-chrishinsley@gmailcom> <0185e315-1855-415d-b981-638e4a2dabe5@googlegroups.com> <2012110813141528599-chrishinsley@gmailcom> <slrnk9ndne.knj.ouatubi@localhost.localdomain> <2012110814024527964-chrishinsley@gmailcom> <2012110815354666733-chrishinsley@gmailcom>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Subject: Re: Genral advise and comments on callback style words
User-Agent: Unison/2.1.9
Lines: 35
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-eZCFqLIe85a07NzImUpoVDB7I1I3jY4P5rYm1Z6koXD3EZ4oTLgGomTjDrzlV7qCLyFV071DM17piuY!TpvOkWLVrlVSwR753YeiKwz39Bv3/eclOr2t0y9wWn5uzOy1HMYdxpMM+PV22VDGJNSIO9A=
X-Complaints-To: abuse@giganews.com
X-DMCA-Notifications: http://www.giganews.com/info/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
X-Original-Bytes: 1970
Xref: csiph.com comp.lang.forth:17165

On 2012-11-08 15:35:46 +0000, Chris Hinsley said:
> \ ( u xt lh -- r | 0)
> \ xt api is ( u ln lh -- r | 0 )
> : LISTHEAD-ENUMERATE-FORWARDS
> 	2DUP LISTHEAD-GET-HEAD
> 	BEGIN
> 		NIP DUP LISTNODE-GET-SUCC
> 		DUP !?DUP
> 	WHILE
> 		4 PICK 2 PICK 4 PICK
> 		6 PICK EXECUTE ?DUP
> 	UNTIL THEN
> 	2NIP 2NIP NIP
> ;
> 
> Chris

Ok, how about this one ! Yes I know it uses PICK but it's got a nice 
feel to it !

\ ( u xt lh -- r | 0 )
\ xt api is ( u ln lh -- r | 0 )
: LISTHEAD-ENUMERATE-FORWARDS
	DUP LISTHEAD-GET-HEAD
	BEGIN
		DUP LISTNODE-GET-SUCC DUP
 	WHILE
 		4 PICK ROT 3 PICK
 		5 PICK EXECUTE ?DUP
 	UNTIL THEN
 	2NIP 2NIP
;

Chris