[REBOL] Re: Reverse append refinement for write

From: al:bri:xtra at: 15-Aug-2002 22:27

> 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/

1 · 2 · 3 · 4 · [5] · 6 · 7 · 8 · 9 · See whole thread