You could try this function:

    cut: func [series /part range][
        range: any [range 1]
        part: copy/part series range
        remove/part series range
        part
   ]

    b: [1 2 3 4 5 6]
    if tmp: find b 3 [
        x: cut/part  tmp 2
        insert tail tmp x
    ]

---
Ciao
Romano
-- 
To unsubscribe from the list, just send an email to rebol-request
at rebol.com with unsubscribe as the subject.

Reply via email to