2011/10/1 Slava Pestov <sl...@factorcode.org>
> Hi Michele,
>
> On Fri, Sep 30, 2011 at 2:53 PM, Michele Pes <mp8...@rambler.ru> wrote:
> > To achieve this, I wrote this word:
> >
> > : when-drop ( obj question-quot: ( obj -- ? ) true-quot: ( obj -- ) -- )
> > -rot dupd call swapd [ call ] [ 2drop ] if ; inline
>
> Here is a simpler version that doesn't use locals:
>
> : when-drop ( obj question-quot: ( obj -- ? ) true-quot: ( obj -- ) -- )
> [ dup ] 2dip [ drop ] if ; inline
I think you forgot "swap dip" before "[ drop ]".
My version would be:
: when-drop ( obj question-quot: ( obj -- ? ) true-quot: ( obj -- ) -- )
[ keep and ] dip when* ; inline
------------------------------------------------------------------------------
All of the data generated in your IT infrastructure is seriously valuable.
Why? It contains a definitive record of application performance, security
threats, fraudulent activity, and more. Splunk takes this data and makes
sense of it. IT sense. And common sense.
http://p.sf.net/sfu/splunk-d2dcopy2
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
