On Sun, Nov 23, 2008 at 2:19 AM, Eduardo Cavazos <[EMAIL PROTECTED]> wrote:
> :: [deep-cleave-quots] ( SEQ -- quot )
>
> [let | QUOTS [ SEQ [ quotation? ] deep-filter ]
> RECIPE [ SEQ [ dup quotation? [ drop , ] [ ] if ] deep-map ] |
>
> [ QUOTS cleave RECIPE bake ] ] ;
>
> MACRO: deep-cleave-quots ( seq -- quot ) [deep-cleave-quots] ;
Here is my version, lest the peanut gallery think that our only took
for dealing with complexity is locals:
MACRO: deep-cleave-quots ( seq -- quot )
[ [ quotation? ] deep-filter ]
[ [ dup quotation? [ drop , ] when ] deep-map ]
bi '[ _ cleave _ bake ] ;
Slava
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
