Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!nntp.club.cc.cmu.edu!feeder.erje.net!eu.feeder.erje.net!border3.nntp.ams.giganews.com!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 08:51:55 -0600
From: Chris Hinsley <chris.hinsley@gmail.com>
Newsgroups: comp.lang.forth
Date: Thu, 8 Nov 2012 14:51:55 +0000
Message-ID: <2012110814515560672-chrishinsley@gmailcom>
References: <2012110713421835115-chrishinsley@gmailcom> <509bb9a2$0$6999$882e7ee2@usenet-news.net> <2012110814115169871-chrishinsley@gmailcom> <2012110814312086525-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: 22
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-NmZnwIHCEaj0L7OVKvSm5DxYiEzzAnGnrokg4RxLbC7u8sNvL7jXlAui3Wh9ZxJqXHeEmwxEipMRt3L!EjYecVajell2pcYzqXNsCTSqMsZw0NEOk7Qe7Jmry95uGP8RoYEU5Wsx2p0Ja4b3kyiMKys=
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: 1740
Xref: csiph.com comp.lang.forth:17160

On 2012-11-08 14:31:20 +0000, Chris Hinsley said:

>>> 
>>> : LISTHEAD-ENUMERATE-FORWARDS ( u xt lh -- ln | 0 )
>>> 	TUCK  SWAP 2>R
>>> 	LISTHEAD-GET-HEAD BEGIN
>>> 		2DUP LISTNODE-GET-SUCC
>>> 	DUP WHILE
>>> 		2R@ EXECUTE
>>> 	?DUP UNTIL ELSE NIP THEN
>>> 	NIP NIP 2R> 2DROP ;
> 
> Err, I'm not sure that works ! You are skipping the first node. Isn't 
> the 2DUP also blowing up the stack with an extra copy of the original 
> LH each time ?
> 
> Chris

And it's not passing the user value into the callback at all ?

Chris