Path: csiph.com!weretis.net!feeder6.news.weretis.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: accessing current xt
Organization: nocrew
References: <oevetu$ivi$1@dont-email.me> <9688556b-283e-42cf-bef5-efa012b34e95@googlegroups.com> <86y3u37sh8.fsf@molnjunk.nocrew.org> <b947d14a-cb3f-4dff-963e-4db428e33c8e@googlegroups.com> <86tw4r7pqq.fsf@molnjunk.nocrew.org> <2c886ade-1481-4aae-9903-ac7d8031d907@googlegroups.com>
Date: Thu, 11 May 2017 14:32:35 +0200
Message-ID: <86poff7evw.fsf@molnjunk.nocrew.org>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux)
Cancel-Lock: sha1:Ujm4/9SJmCODUVqCFvPFS6B9kUA=
MIME-Version: 1.0
Content-Type: text/plain
Lines: 9
NNTP-Posting-Host: 178.18.91.250
X-Trace: news.sunsite.dk DXC=?kJFG8_cP@JlZiKmBn9NRLYSB=nbEKnkK:02ZWQ`i[jDnY:6X7^ZBNGI57e>YZ9SOK1HBfORCSCcCD5J_h8H;EFCI2Ic:1WDKBC
X-Complaints-To: staff@sunsite.dk
Xref: csiph.com comp.lang.forth:59080

Julian Fondren wrote:
> Just reuse the name.
>
>   0 value nonce
>   : was ( n "name" -- )
>     >in @ swap ' >body !
>     >in ! 0 value ;

Thanks, that's clever!