Slava, : ((append)) ( seq1 seq2 accum -- accum ) [ >r over length r> copy ] keep [ 0 swap copy ] keep ; inline
I think this can just be: : ((append)) ( seq1 seq2 accum -- accum ) swapd tuck push-all tuck push-all ; inline Ed ------------------------------------------------------------------------- This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ _______________________________________________ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk