Feel free to change this if you care about it. I don't mind the old
version of this enough to change it myself.

Dan

On Sun, Jul 6, 2008 at 10:37 AM, Eduardo Cavazos <[EMAIL PROTECTED]> wrote:
> Dan,
>
> I spotted a place in 'inverse' where fry can be used nicely:
>
> : recover-chain ( seq -- quot )
>    [ no-match ] [ swap \ recover-fail 3array >quotation ] reduce ;
>
> : recover-chain ( seq -- quot )
>    [ no-match ] [ swap '[ , , recover-fail ] ] reduce ;
>
> Ed
>
> -------------------------------------------------------------------------
> Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
> Studies have shown that voting for your favorite open source project,
> along with a healthy diet, reduces your potential for chronic lameness
> and boredom. Vote Now at http://www.sourceforge.net/community/cca08
> _______________________________________________
> Factor-talk mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/factor-talk
>

-------------------------------------------------------------------------
Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
Studies have shown that voting for your favorite open source project,
along with a healthy diet, reduces your potential for chronic lameness
and boredom. Vote Now at http://www.sourceforge.net/community/cca08
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk

Reply via email to