[REBOL] Re: CORE 2.5.2 Bugs/Enhancements

From: lmecir:mbox:vol:cz at: 12-May-2002 10:54

The APPEND function should be enhanced to allow the same types of
arguments/refinements as INSERT does.

append: function [
    {Appends a value to the tail of a series and returns the series.}
    [catch]
    series [series! port! bitset!] "Series at point to insert"
    value [any-type!] "The value to insert"
    /part "Limits to a given length or position."
    range [number! series! port!]
    /only "Inserts a series as a series."
    /dup "Duplicates the insert a specified number of times."
    count [number!]
] [path block] [
    path: to path! [insert]
    block: reduce [:path 'tail :series]
    insert/only tail block get/any 'value
    if part [
        insert tail path 'part
        insert/only tail block :range
    ]
    if only [
        insert tail path 'only
        insert tail block :range
    ]
    if dup [
        insert tail path 'dup
        insert tail block :count
    ]
    throw-on-error block
    :series
]

The CHANGE function should be enhanced too, to allow ANY-TYPE! VALUE
argument.

-L

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