Thanks, that's great.
On 19 April 2011 23:14, Martial Boniou <hond...@gmx.com> wrote:
> Hi,
>
> I did a quick hack for this:
>
> MACRO: cond-case ( assoc -- )
> [ dup callable? not
> [
> [ first '[ dup @ ] ]
> [ second '[ drop @ ] ] bi 2array
> ]
> [ '[ drop @ ] ] if
> ] map '[ _ cond ] ;
>
> I guess someone can do a better code by coding a more specific cond.
>
> my 2 cents...
>
> At Tue, 19 Apr 2011 20:49:51 +0100,
> "Tadhg O'Meara" <tome...@gmail.com> wrote:
>>
>> I'm looking for a word that's like cond but doesn't need all the dups
>> and drops for the simple case where you want to check various
>> properties of the object on the stack and call an appropriate
>> quotation. So instead of
>>
>> {
>> { [ dup 0 > ] [ drop "positive" ] }
>> { [ dup 0 < ] [ drop "negative" ] }
>> [ drop "zero" ]
>> } cond
>>
>> I could use
>>
>> {
>> { [ 0 > ] [ "positive" ] }
>> { [ 0 < ] [ "negative" ] }
>> [ "zero" ]
>> } cond-case
>>
>> I tried to write a cond-case word that adds the necessary dups and
>> drops to a cond assoc but this results in a error.
>>
>> USING: arrays combinators kernel quotations sequences ;
>>
>> : cond-case ( assoc -- )
>> [ dup callable? not
>> [
>> [ first [ dup ] prepose ]
>> [ second [ drop ] prepose ] bi 2array
>> ]
>> [ [ drop ] prepose ] if
>> ] map cond ;
>>
>> Error: Cannot apply “cond” to a run-time computed value
>> It also says cond is a macro.
>>
>> Any ideas?
>>
>> Thanks,
>> Tadhg
>>
>> ------------------------------------------------------------------------------
>> Benefiting from Server Virtualization: Beyond Initial Workload
>> Consolidation -- Increasing the use of server virtualization is a top
>> priority.Virtualization can reduce costs, simplify management, and improve
>> application availability and disaster protection. Learn more about boosting
>> the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
>> _______________________________________________
>> Factor-talk mailing list
>> Factor-talk@lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
>
> --
> Martial Boniou
>
> ------------------------------------------------------------------------------
> Benefiting from Server Virtualization: Beyond Initial Workload
> Consolidation -- Increasing the use of server virtualization is a top
> priority.Virtualization can reduce costs, simplify management, and improve
> application availability and disaster protection. Learn more about boosting
> the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
> _______________________________________________
> Factor-talk mailing list
> Factor-talk@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>
>
------------------------------------------------------------------------------
Benefiting from Server Virtualization: Beyond Initial Workload
Consolidation -- Increasing the use of server virtualization is a top
priority.Virtualization can reduce costs, simplify management, and improve
application availability and disaster protection. Learn more about boosting
the value of server virtualization. http://p.sf.net/sfu/vmware-sfdev2dev
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
