Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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. Anton. 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 something.) form-error: func [ error [object!] /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] -Volker