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
Slava
------------------------------------------------------------------------------
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
