Daniel,
If you use 'shorter?' your code will be slightly shorter:
Before:
: tail-if ( seq n -- newseq )
2dup swap length <= [ tail ] [ drop ] if ;
After:
: tail-if ( seq n -- newseq )
2dup shorter? [ drop ] [ tail ] if ;
Ed
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Register now and save $200. Hurry, offer ends at 11:59 p.m.,
Monday, April 7! Use priority code J8TLD2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
