Mailing List Archive: Re: remaking an error ?

[REBOL] Re: remaking an error ?

From: lmecir:mbox:vol:cz at: 23-Oct-2001 22:54


Hi Maarten,

would this help you a bit?

remake-error: function [
    disarmed [object!]
] [spec-length spec words] [
    spec-length: (length? first disarmed) - 3
    spec: make block! spec-length
    words: copy/part skip first disarmed 2 spec-length
    bind words in disarmed 'self
    repeat word words [insert/only tail spec get word]
    return make error! spec
]