Hi, after the recent discussion, isn't better to use the modified
Append?
; A replacement Append function
; uses a refined path for Insert and returns the series
append: function [
{Appends a value to the tail of a series and returns the
series.}
series [series! port!]
value
/only {Appends a block value into a block series as a block}
][
Refined_Insert
][
Refined_Insert: to path! 'insert
if only [head insert tail :Refined_Insert 'only]
Refined_Insert tail :series :value
series
]
Ladislav
AKA He, who is recovering from the fact that Append was faulty :-o
Here's an upgraded %Patch.r. It incorporates all previous
modifications,
> plus it updates 'append (I'll bet you didn't think that was
faulty, did you?
> (-:), replaces 'for with Ladislav's corrected 'for, and fixes
all the
> 'to-[type] functions (Thanks, Eric!). It also makes its patch
functions
> disappear after they've been used.
>
> Andrew Martin
> Off to the land of Nod...
> ICQ: 26227169
> http://members.xoom.com/AndrewMartin/
> -><-
>
>
>
