Path: csiph.com!aioe.org!.POSTED!not-for-mail
From: Rod Pemberton <NeedNotReplyHere@xrsevnneqk.cem>
Newsgroups: comp.lang.forth
Subject: Re: EXIT THEN
Date: Sun, 12 Feb 2017 16:42:50 -0500
Organization: Aioe.org NNTP Server
Lines: 21
Message-ID: <20170212164250.22867950@_>
References: <o5jrct$1r41$1@gioia.aioe.org> <o6v4tf$k59$1@cherry.spenarnc.xs4all.nl> <o7j45j$19ee$1@gioia.aioe.org> <f6928d15-aebe-4dcf-91f4-0fbc88b32827@googlegroups.com> <o7lq8n$1jm5$1@gioia.aioe.org> <db3573f7-a2f8-4a6f-8270-7adfcec20b83@googlegroups.com> <20170211075559.5d4b2fc3@_> <o7n2nd$fkf$1@dont-email.me> <-9WdneZj9upxHALFnZ2dnUU7-T3NnZ2d@supernews.com> <877f4wv22e.fsf@nightsong.com> <88caa00e-b9e6-4620-95a2-fd232a8f49a9@googlegroups.com> <20170212120909.5e42585f@t530.lan> <a1bf9577-6734-4bed-ad3b-1f5be6856dd3@googlegroups.com>
NNTP-Posting-Host: ZTD62cW/Uw8bymX5ok+0NA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
Xref: csiph.com comp.lang.forth:54814

On Sun, 12 Feb 2017 07:24:04 -0800 (PST)
hughaguilar96@gmail.com wrote:

> ROVER is in the novice package:
> 
> : rover ( a b c -- a b c a )
>     state @ if      2 postpone literal  postpone pick
>     else            2 pick                                  then ;
> immediate
> 

Apparently, you have objections to the following?

: ROVER >R OVER R> SWAP ;


Rod Pemberton
-- 
All it takes for humanity to conquer the world's toughest problems is
to hope, to believe, to share, and to do, in cooperation.