subject:"Re\: \[Factor\-talk\] cond\-case or similar word"

Re: [Factor-talk] cond-case or similar word

2011-04-20 Thread Tadhg O'Meara

Thanks, that's great. On 19 April 2011 23:14, Martial Boniou wrote: > Hi, > > I did a quick hack for this: > > MACRO: cond-case ( assoc -- ) > [ dup callable? not > [ > [ first '[ dup @ ] ] > [ second '[ drop @ ] ] bi 2array >

Re: [Factor-talk] cond-case or similar word

2011-04-19 Thread Martial Boniou

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 g