[REBOL] print-error or form-error in system ?
From: anton::lexicon::net at: 13-Nov-2002 19:19
Hi I am looking for a function just as Volker wrote
about last year.
Has anyone noticed if there is such a function
lying around in the system somewhere?
I think it must exist somewhere, I just haven't found it.
Volker wrote last year on 21 December 2001:
RE: [REBOL] Coerting Errors to a string?
(original by Bo somewhere, called print-error. forgot if i changed
form-error: func [
/local arg1 arg2 arg3 message out
out: make string! 100
set [arg1 arg2 arg3] [error/arg1 error/arg2 error/arg3]
message: get in get in system/error error/type error/id
if block? message [bind message 'arg1]
append out reform reduce message
append out reform ["^/Near:" mold error/near]
append out reform ["^/Where:" mold get in error 'where]
use with [print form-error disarm error]