On Sat, May 7, 2011 at 4:50 PM, Matt Edlefsen <[email protected]> wrote: > Makes sense. I changed contains-any? to > MACRO: contains-any? ( elts -- quot ) seq>contain-seq '[ _ 1|| ] ; > > But that only works if elts is literal, so I changed it back to the > call( version.
You can use any? instead of 1||: : contains-any? ( seq elts -- ? ) [ contains? ] with any? ; However your contains? word is equivalent to the in? word of the sets vocab, just with the parameter order reversed. And your contains-any? is equivalent to intersects?. Slava ------------------------------------------------------------------------------ WhatsUp Gold - Download Free Network Management Software The most intuitive, comprehensive, and cost-effective network management toolset available today. Delivers lowest initial acquisition cost and overall TCO of any competing solution. http://p.sf.net/sfu/whatsupgold-sd _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
