Path: csiph.com!feeder.erje.net!2.us.feeder.erje.net!news.glorb.com!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
From: Lars Brinkhoff <lars.spam@nocrew.org>
Newsgroups: comp.lang.forth
Subject: Re: Another recognizer discussion
Organization: nocrew
References: <oghtli$kng$1@dont-email.me> <592f46a8.632823078@news.eternal-september.org> <2017Jun1.075057@mips.complang.tuwien.ac.at> <592fd139.668296177@news.eternal-september.org> <ogp6oc$fbd$1@dont-email.me> <hKydnVY_4s3asK3EnZ2dnUU7-WWdnZ2d@supernews.com> <2017Jun2.095932@mips.complang.tuwien.ac.at> <86zidqk9dr.fsf@molnjunk.nocrew.org> <2017Jun2.122445@mips.complang.tuwien.ac.at> <86vaoek5uu.fsf@molnjunk.nocrew.org> <2017Jun2.153057@mips.complang.tuwien.ac.at> <86k24ujw30.fsf@molnjunk.nocrew.org> <2017Jun2.175147@mips.complang.tuwien.ac.at>
Date: Fri, 02 Jun 2017 21:09:26 +0200
Message-ID: <86fufijjfd.fsf@molnjunk.nocrew.org>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
Cancel-Lock: sha1:HaWbaNct/opVU/KIki6EaHlTSEg=
MIME-Version: 1.0
Content-Type: text/plain
Lines: 10
NNTP-Posting-Host: 178.18.91.250
X-Trace: news.sunsite.dk DXC=jlbnl\o1hE`E`KPf6Y4mAkYSB=nbEKnkkk_>b_hLEAVjnY:6X7^ZBNgI57e>YZ9SOk1HBfORCSCccD5J_h8H;EFc5RXGEnZ\Dn`
X-Complaints-To: staff@sunsite.dk
Xref: csiph.com comp.lang.forth:60206

Anton Ertl writes:
> What stack effect do you use?

I have FIND-NAME ( c-addr u -- c-addr u 0 | xt +-1 )

This wasn't a deliberate design, just a small upgrade from FIND.  But it
has worked out well in my code.  It seems that roughly 50% of the time I
have used FIND-NAME, this output was helpful.  In most of the other
cases, I throw an error if an xt is not found, so cleaning up c-addr u
isn't necessary.