[REBOL] Re: Reverse append refinement for write
From: louisaturk:coxinet at: 15-Aug-2002 9:37
Hi again Andrew,
At 10:27 PM 8/15/2002 +1200, you wrote:
> > or watch out the %values.r of Andrew Martin for the PUSH function..
>
>Push: func [
> "Inserts a value into a series and returns the series head."
> Stack [series! port! bitset!] "Series at point to insert."
> Value [any-type!] /Only "The value to insert."
> ][
> head either Only [
> insert/only Stack :Value
> ][
> insert Stack :Value
> ]
> ]
>
>Andrew Martin
>The benefits of dialecting are many...
>ICQ: 26227169 http://valley.150m.com/
>-><-
Whoops! How do I use push?
>> Push: func [
[ "Inserts a value into a series and returns the series head."
[ Stack [series! port! bitset!] "Series at point to insert."
[ Value [any-type!] /Only "The value to insert."
[ ][
[ head either Only [
[ insert/only Stack :Value
[ ][
[ insert Stack :Value
[ ]
[ ]
>>
>> push %pig.txt "Yet another line."
== %Yet another line.pig.txt
>> print read %pig.txt
What a day.
15-Aug-2002/0:59:11-5:00
A line of text.
